viết chương trình tính tổng n số tự nhiên nhập từ bàn phím
Quảng cáo
1 câu trả lời 96
Lời giải:
program tinhtong;
uses crt;
var i,s,n:integer;
a:array [1.100] of integer;
begin
clrscr;
write('So thu n la: 3; readln(n);
s:=0
for i:=1 to n do begin
write(Nhap so thu ',i); readln(a[i]);
s=s+a[i]; end;
writeln('Tong cac so do la:', s);
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149346 -
Đã trả lời bởi chuyên gia
99768 -
Đã trả lời bởi chuyên gia
97375 -
Đã trả lời bởi chuyên gia
80043 -
Đã trả lời bởi chuyên gia
72882 -
Đã trả lời bởi chuyên gia
55970 -
Đã trả lời bởi chuyên gia
55345
Gửi báo cáo thành công!
