Em hãy viết chương trình nhập vào N ( 1 <= N < 1234568) số thực a1, a2, a3, ... an ( -9 tỷ < ai < 9 tỷ) vào từ bàn phím. Tính tổng các phần tử của dãy số A. *
Em hãy viết chương trình nhập vào N ( 1 <= N < 1234568) số thực a1, a2, a3, ... an ( -9 tỷ < ai < 9 tỷ) vào từ bàn phím. Tính tổng các phần tử của dãy số A. *
program ct;
uses crt;
var n,i,s:integer;
A:array[1..12345678] of integer;
begin
write(‘nhap n=’); readln(n);
for i:=1 to n do
begin
write(‘nhap mamg a[‘,i,’]:=’);readln(a[i]);
end;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln(‘S=’,s);
readln
end.
uses crt;
var a: array[1..12345678] of intn64;
i,n: longint;
s: int64;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
s:=s+a[i];
end;
writeln (‘tong la: ‘,s);
readln;
end.