Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thái Hồng Sương

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

Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 20:42

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.


Các câu hỏi tương tự
Vbb nbbj Vbb
Xem chi tiết
Trúc Linh
Xem chi tiết
hà phương
Xem chi tiết
Hải Hà
Xem chi tiết
Nguyễn Thùy Linh
Xem chi tiết
Ẹih bw
Xem chi tiết
Hải Hà
Xem chi tiết
Hải Hà
Xem chi tiết
phạm hải nam
Xem chi tiết