Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tứ Diệp Thảo

Viết chương trình nhập 1 dãy số nguyên gồm n phần tử. In ra màn hình tích các phân tử vừa nhập

Nguyễn Lê Phước Thịnh
7 tháng 6 2020 lúc 8:48

uses crt;

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

n,i: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 cac phan tu la: ',s:0:0);

readln;

end.


Các câu hỏi tương tự
Thảo Nguyên 36-88
Xem chi tiết
Nhân lê
Xem chi tiết
Jeri James
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Hưng Quốc
Xem chi tiết
09. Trương Gia Hân
Xem chi tiết
Quỳnh
Xem chi tiết
duyy
Xem chi tiết
Quỳnh Như
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết