Bài 9. Làm việc với dãy số

Mộc Trà

1.Viết chương trình vào 10 số nguyên tính tổng của chúng.

giúp giúp ! sử dụng array

Nguyễn Trung Hiếu
5 tháng 5 2019 lúc 20:09

uses crt;
var i,s:longint; a:array[1..10] of longint;
begin
clrscr;
write('Nhap 10 so nguyen di nao: '); writeln;
for i:=1 to 10 do
begin
write('So thu ',i,' = ');readln(a[i]);
end;
for i:=1 to 10 do
s:=s+a[i];
write('Tong cua chung la: ',s);
readln
end.

Bình luận (0)

Các câu hỏi tương tự
Uchiha Obito
Xem chi tiết
Bảo Trâm
Xem chi tiết
Nguyễn Văn Ý
Xem chi tiết
jennierubyjane
Xem chi tiết
Lê Thị Phương Dung
Xem chi tiết
Hiếu Ngô
Xem chi tiết
Nguyễn Huỳnh Như
Xem chi tiết
Minh
Xem chi tiết
Lan Tuyết
Xem chi tiết