cau 1.Chương trình nhập vào mảng 1 dãy số nguyên tối đa 100 số. Tính và xuất ra Tổng các số trong mảng vừa nhập.. giúp em với ạ
2 câu trả lời
program oken;
uses crt;
var a: array [1..100] of integer;
n,i,sum:longint;
begin
clrscr;
write('nhap n: '); readln(n);
sum:=0;
for i:=1 to n do
begin
write('a[',i,']: '): readln(a[i]);
sum:=sum+a[i];
end;
writeln('tong=',sum);
readln;
end.
Program Hotboy;
Uses crt;
Var A:array[1..100] of integer;
I,n,S : longint;
Begin
Clrscr ;
S:=0;
Write('nhap so n'); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']'); readln(A[i]);
End;
For i:=1 to n do
S:=S+ A[i] ;
Writeln('Tong la',S);
Readln
End.
