Viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình tổng giá trị của các số nguyên đó
Bạn vui lòng đăng nhập trước khi sử dụng chức năng này.
Program bai1;
uses crt;
var tong : array [1..100] of integer;
S, i, n : integer;
Begin
clrscr;
readln [n];
for i:=1 to n do
readln [tong [i]];
for i:=1 to n do
S:= S+tong[i];
Writeln ['tong cua' n 'so nguyen la' S];
End.