Question

Chương trình pascal thực hiện các yêu cầu sau: nhập giá trị của các phần tử một dãy số gồm n phần tử, tính tích các phần tử của dãy số đó và không báo kết quả ra màn hình và tính trung bình cộng các phần tử của dãy số đó và thông báo kết quả ra màn hình

Answer 1

uses crt;

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

i,n,t:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

s:=1;

for i:=1 to n do 

  s:=s*a[i];

writeln('Tich la: ',s:0:0);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

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

readln;

end.