Viết chương trình nhập từ bàn phím mảng A gồm N phần tử là các số nguyên dương .Tính và đưa ra màn hình tổng số N số đó
Viết chương trình nhập từ bàn phím mảng A gồm N phần tử là các số nguyên dương .Tính và đưa ra màn hình tổng số N số đó
Program FNG;
Uses crt;
Var A: array[1..20] of longint;
n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
s:=s+A[i];
End;
Write(‘S = ‘,s);
Readln
End.
Program BTH;
uses crt;
var a:array[1..1000000] of longint;
n,s:qword;
i:byte;
Begin
clrscr;
Write(‘Nhap n: ‘);readln(n);
For i:=1 to n do
Begin
Write(‘Nhap so thu ‘,i,’ : ‘);readln(a[i]);
s:=s+a[i];
end;
writeln(‘Tong day so tren la: ‘,s);
readln;
End.