Viết chương trình nhập số nguyên N và mảng a gồm N số nguyên. Tính và in ra trung bình cộng của các số âm, số dương trong a. Không tính số 0.

program oken;

uses crt;
var a: array [1..100] of integer;
    i,n,dem,dem2:integer;
    tong,s1,s2:real;
begin
        clrscr;
        write('nhap so phan tu cua mang: '); readln(n);
        for i:=1 to n do
                begin
                     write('a[',i,']: '); readln(a[i]);
                end;
        dem:=0; dem2:=0;
        for i:=1 to n do
            begin
                if a[i]>0 then
                        begin
                                s1:=s1+a[i];
                                dem:=dem+1;
                        end
                else
                     if a[i]<0 then
                        begin
                                s2:=s2+a[i];
                                dem2:=dem2+1;
                        end;
                tong:=tong+a[i];
            end;
        writeln('trung binh cong cua mang: ',tong/n:0:3);
        writeln('trung binh cong cua phan tu duong: ',s1/dem:0:3);
        if dem2<>0 then writeln('trung binh cong cua phan tu am: ',s2/dem2:0:3);
        readln;
end.

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,total=0;
    cin>>n;
    int a=n,arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
        if(arr[i]==0){
            a--;
        }
    }
    for(int i=0;i<n;i++){
        total+=arr[i];
    }
    cout<<"TBC: "<<total/(float)a;
    //samon247
    return 0;
}