Viết chương trình nhập vào n số nguyên từ bàn phím, hãy tính và in ra màn hình tổng các số vừa nhập
2 câu trả lời
program ct;
uses crt;
var i,n,T:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang a[',i,']:=');readln(a[i]);
end;
T:=0;
for i:=1 to n do T:=T+a[i];
writeln('tong cac so la:=',T);
readln
end.
Program tinh_tong;
Uses crt;
Var A: array [1..150] of integer;
S,i,n: integer;
Begin
Write ('nhap n=');
Readln (n);
For i:=1 to n do
Begin
Write ('nhap phan tu thu',i,'=');
Readln (A[i]);
end;
S:=0;
For i:=1 to n do
S:=S+ A[i];
Writeln ('tong n so nguyen trong day la:',S);
Readln
End.