Опишите целочисленный массив из 10 элементов заполнить массив последовательностью чисел 2 5 11 23 47
вывести массив на экран.
var A : array [1..10] of integer;
i : integer;
begin
A[1]:=2;
for i:=1 to 10 do
begin
A[i]:=A[i-1]+3*i;
write (A[i], ' ')
end;
end.
Подскажите почему программа не работает?

masha0301    1   12.02.2021 14:29    3