viết chương trình a,nhập vào dãy n số nguyên dương b,tính trung bì

Uses crt ;

Var A:array[1..100]of integer;

i,n:integer;
tong_so_duong,tong_so_am,TBC_so_duong,TBC_so_am,so_so_am,so_so_duong:real;

Begin
clrscr;

Write(‘Nhap so so hang:’);

readln(n);

for i:=1 to n do

Begin

write(‘Nhap so:’);

readln(A[i]);

if (A[i]>=0) then

begin

tong_so_duong:=tong_so_duong+A[i];

so_so_duong:=so_so_duong+1;

end

else

begin

tong_so_am:=tong_so_am+A[i];

so_so_am:=so_so_am+1;

end;
end;

if (so_so_am>0) then TBC_so_am:=tong_so_am/so_so_am;

if (so_so_duong>0) then TBC_so_duong:=tong_so_duong/so_so_duong;

writeln(‘TBC so duong la:’,TBC_so_duong:5:5);

writeln(‘TBC so am la:’,TBC_so_am:5:5);

readln;

end.