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

Picture!!!

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.