Question

Viết chương trình nhập dãy số nguyên gồm n phần tử từ bàn phím và thực hiện:

a. In ra màn hình dãy số vừa nhập

b. Tính tích và giá trị TB của dãy số

giúp mik với mai thi rồi

Answer 1

Program HOC24;

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

i,n: integer;

tb,t: longint;

begin

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

tb:=0; t:=1;

for i:=1 to n do

begin

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

t:=t*a[i];

tb:=tb+a[i];

end;

write('Day so vua nhap la : '); readln(a[i]);

writeln;

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

write('Gia tri trung binh cua day la : ',tb/n:1:2);

readln

end.