Hi HI Hi

viết chương trình nhập và in 1 mảng 60 số nguyên. Tính và in tổng các số đó

Kiều Vũ Linh
29 tháng 4 2022 lúc 9:13

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

i,n,s:integer;

Begin

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

s:=0;

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)

Các câu hỏi tương tự
Minh Duy
Xem chi tiết
my nguyễn
Xem chi tiết
Nguyễn
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Denmak Blues
Xem chi tiết
Huynh Uyen
Xem chi tiết
Linh Chii
Xem chi tiết
phạm hải nam
Xem chi tiết
Bao Khuyen Tran Nguyen
Xem chi tiết