Giải bởi Vietjack
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.
Gói VIP thi online tại VietJack (chỉ 400k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết
