Дан массив a:
Var A: Array [1..6] Of Integer;
2 4 1 6 3 5
Укажите, какими станут значения элементов массива после выполнения фрагмента программы:
for i:=1 to 6 do a[a[i]]:=i;

В a[a[i]] вместо a[i] надо подставлять значение элемента с соответствующим номером из исходного массива.

i:=1

a[2]:=1

i:=2

a[4]:=2

i:=3

a[1]:=3

i:=4

a[6]:=4

i:=5

a[3]:=5

i:=6

a[5]:=6

ответ: 3 1 5 2 6 4.