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

0 bình luận về “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. 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.

   Trả lời