Question

viết chương trình nhập vào dãy A gồm 10 số nguyên. Tnhs và in ra màn hình tổng, trung bình cộng của các số trong mảng đó

Answer 1

uses crt;

var a:array[1..10]of integer;

i,t:integer;

begin

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to 10 do 

  t:=t+a[i];

writeln('Tong cua day la: ',t);

writeln('Trung binh cong cua day la: ',t/n:4:2);

readln;

end.