Question

Viết chương trình nhập một dãy số. Tính tổng, giá trị trung bình các số trong dãy số.

 

Answer 1

Program HOC24;

var i,n: byte;

a: array[1..1000] of integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

tbc:=0; t:=0;

end;

for i:=1 to n do t:=t+a[i];

writeln('Tong la :',t);

write('Trung binh cong cac phan tu la: ',t/n:5:2);

readln

end.