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( mọi người giúp mình vs, mình chưa học bài mảng nên mọi người đừng nhập mảng vào chương trình nhé)
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( mọi người giúp mình vs, mình chưa học bài mảng nên mọi người đừng nhập mảng vào chương trình nhé)
var a: integer;
n, i: byte;
s: longint;
Begin
Write(‘n = ‘); readln(n);
S:=0;
For i:=1 to n do
Begin
Write(‘nhap so thu ‘, i, ‘: ‘);
Readln(a);
S:=s+a;
End;
Write(‘tong: ‘, s);
Readln
End.
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.