помогите пожалуйста с массивом!

for i:=1 to 10 do
A[i]:=5*i;
for i:=1 to 10 do 
begin
k:=A[i]-2;
a[10-i+1]:=k;
end

Сначала массив заполняется так:

\[ A = 5, 10, 15, 20, 25, 30, 35, 40, 45, 50 \]

Потом второй цикл идёт слева направо и записывает значения в массив с конца:

\[ A[10-i+1] := A[i] - 2 \]

Но важно: во второй половине цикла программа уже берёт некоторые элементы, которые сама изменила раньше.

Итоговый массив будет:

\[ A = 1, 6, 11, 16, 21, 23, 18, 13, 8, 3 \]

0 0 Пожаловаться