Viết chương trình nhập vào số n số hạng tử bàn phím. a, tính trung bình cộng các số hạng trong dãy số. b,tính trung bình cộng các số lớn hơn 0 trong dãy số và cho biết có bao nhiêu số lớn hơn 0.

#include<bits/stdc++.h>

using namespace std;

int main(){

int a[1000],n,tong,tong_0,tbc,tbc_0,dem;

cin>>n;

for(int i = 0,i<=n-1;i++){

cin>>a[i];

tong = tong + a[i];

if(a[i]>0){

tong_0 = tong_0 + a[i];

dem++;

}

}

tbc = tong/n;

tbc_0 = tong_0/dem;

cout<<"Trung binh cong cac so vua nhap la: "<<tbc;<<"\n";

cout<<"Trung binh cong cac so lon hon 0 la: "<<tbc_0<<"\n";

cout<<"Co "<<dem<<" so lon hon 0";

}

uses crt;
var A : array [1 .. 100] of integer;
    i, N, X, S : integer;
    
begin
    clrscr;
    readln(N);
    
    X := 0; S := 0;
    for i := 1 to N do 
        begin
            read(A[i]);
            S := S + A[i];
        end;
    writeln(S / N : 0 : 2);
    
    S := 0;
    for i := 1 to N do
        if A[i] > 0 then 
            begin
                S := S + A[i];
                X := X + 1;
            end;
    writeln(S / N : 0 : 2, ' ', X);
    readln
end.