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
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
Bạn xem hình
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.