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. * giúp mình với mình cần gấp
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
By Everleigh
uses crt;
var A:array[1..12345678] of real;
n,i:longint;
t:longint;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
t:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
t:=t+A[i];
end;
write(‘Tong la: ‘,t:0:3);
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.