viết chương trình pascal nhập vào đầy đủ n số tự nhiên ( n được nhập từ bàn phím) sử dụng lệnh lặp chưa biết trước số lần lặp để tính tổng các số đó và thông báo kết quả ra màn hình
viết chương trình pascal nhập vào đầy đủ n số tự nhiên ( n được nhập từ bàn phím) sử dụng lệnh lặp chưa biết trước số lần lặp để tính tổng các số đó v
By Claire
uses crt;
var a:array[1..100] of integer;s,n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];
write(‘tong la’,s);readln
end.
program tong_day;
uses crt;
var A:array[1..1000] of integer;
n,i,t:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
t:=0;
while i<=n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
t:=t+A[i];
end;
write(‘Tong la: ‘,t);
readln;
end.