Ôn tập cuối năm

Nguyễn Khải Minh

Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử (với n được nhập từ bàn phím, n<=15) Tính tổng các số của dãy và in kết quả tổng tính đc ra màn hình(dùng câu lệnh lặp while..do)

Kiều Vũ Linh
30 tháng 4 2022 lúc 7:22

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

i,s:integer;

Begin

I:=1;

While i<=15 do

Begin

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

s:=s+a[i];

i:=i+1;

End;

Write('Tong la ',s);

Readln;

End.

Bình luận (0)

Các câu hỏi tương tự
Ngọc Ty
Xem chi tiết
Vẹt Vẹt
Xem chi tiết
Vân anh
Xem chi tiết
Nguyễn kiên
Xem chi tiết
Phạm Hữu Đức
Xem chi tiết
Yan Dyi
Xem chi tiết
Ngọc Hân Lương Thị
Xem chi tiết
Bao Duong
Xem chi tiết
Phạm Linh
Xem chi tiết