Question

Заполните массив последовательностью состоящей из 10 элементов: 2,5,10,17,20...

Answer 1

Var i: integer;
s: array [1..50] of integer;
Begin
for i:= 1 to 10 do
Read(s[i]);
end.