Question

ЗАПИСАТЬ ПРОГРАММУ КОТОРАЯ НАХОДИТ СУММУ ЭЛЕМЕНТОВ ЦЕЛОЧИСЛЕННОГО МАССИВА,АБСОЛЮТНАЯ ВЕЛИЧИНА КОТОРЫХ БОЛЬШЕ 20

Answer 1

var i,o:integer;
 a:array [1..20] of integer;
begin
for i:=1 to 20 do 
begin
readln (a[i]);
o:=o+a[i]
end;
writeln(o)
end.