DN

viết chương trình giải nhập vào dãy số nguyên dương và n phần tử tính tích các phần tử trong dãy số đó

 

ML
1 tháng 4 2022 lúc 11:15

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap so phan tu 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];

write(s);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
MD
Xem chi tiết
DL
Xem chi tiết
H24
Xem chi tiết
ML
Xem chi tiết
DC
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
A8
Xem chi tiết
HP
Xem chi tiết