viết phương trình nhập mảng 1 chiều A tối đa 10 phần tử a tính tổng và trung bình cộng các phần tử trong mảng b đếm số phần tử dưong
1 câu trả lời
uses crt;
var n,dem,t,i,d:longint; a:array[1..100000]of longint;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin read(a[i]); inc(t,a[i]); IF A[I]>0 then inc(d); end; readln;
writeln('a) Tong:',t,'; Trung binh cong:',t/n:0:2);
writeln('b) ',d);
readln;
end.
