Question

nhập vào một dãy gồm n số a1,a2,...,aN. tính tổng các phần trong mảng?

Answer 1

uses crt;

var n,i,tong:integer;

a:array[1..100] of integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

tong:=tong+a[i];

end;

write(tong);

readln;

end.

Answer 2

uses crt;

var n,t,i:Longint;a:array[1..1000]of longint;

begin

clrscr;

write('n=');readln(n);

for i:=1 to n do 

begin

readln(a[i]);

t:=t+a[i];

end;

writeln('t:=',t);

readln;

end.