NH

viết chương trình nhập vào dãy A gồm N phần tử tính tổng các phần tử 

KL
5 tháng 5 2022 lúc 13:20

Var a:array[1..200] of integer;

i,n,s:integer;

begin

write('Nhap so luong phan tu n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

for i:=1 to n do s:=s+a[i];

write('Tong cac phan tu la ',s);

readln;

end.

Bình luận (0)

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