Hà Trang 08
Hỏi từ APP VIETJACK
Viết chương trình nhập vào một dãy số, tính tổng các số vừa nhập và in giá trị tổng ra màn hình
Quảng cáo
1 câu trả lời 385
uses crt;
var a:array[1..500]of integer;
n,i,t:integer;
Begin
clrscr;
write('n = ');readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');readln(a[i]);
t:=t+a[i];
end;
write('tong = ',t);
readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45577
-
Đã trả lời bởi chuyên gia
28960 -
Hỏi từ APP VIETJACK28509
Gửi báo cáo thành công!
