Em xây dựng một số chương trình còn để tính tổng dãy số nguyên từ a1, a2,...an, n và các số được nhập từ bàn phím, viết thủ tục nhập và hàm tổng Ai giải giúp em với ạ em đang cần gấp
2 câu trả lời
uses crt;
var a:array[1..1000000] of longint;
n,i,s:integer;
begin
clrscr;
//---Nhap---
write('Nhap so luong phan tu: '); readln(n);
s:=0;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
inc(s,a[i]);
end;
//---Tong---
write('Tong: ',s);
readln;
end.
