Viết chương trình nhập vào 1 mảng có n(n<50) phần tử và tính tổng các phần tử trong mảng đó
2 câu trả lời
uses crt;
var n,i,s:longint; a:array[1..1000000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
inc(s,a[i]);
end;
writeln(s);
readln
end.