Question

Знайти суму з 20 елементів послідовних натуральних чисел

Answer 1

var a : Integer;
var b : Array[1..20] of Integer; //создаем массив под 20 мест
begin
for var i:=1 to 20 do //цикл от 1 до 20
Read(b[i]);//каждый тик считываем и заносим в массив 
for var i:=1 to 20 do //цикл от 1 до 20(для перебора массива)
 a+=b[i]; //складываем все элементы масссива  
Writeln(a);
end.