В программе описан одномерный целочисленный массив.

for i:=0 to 10 do

A[i]: = i + 1;

for i:=10downto 0 do

A[i]: = A[10-i]

Чему будут равны элементы этого массива?

только подробно

Делаем программу с трассировкой и все хорошо видно.

var A:array[0 ... 10] of integer;

var i:integer;

begin

Writeln ('Первый цикл') ;

for i:=0 to 10 do begin

A[i]: = i + 1;

Writeln ('i=', i,', a[', i,']=', a[i])

end;

Write ('Массив: ') ; a. Println;

Writeln ('Второй цикл') ;

for i:=0 to 10 do begin

A[i]: = A[10-i];

Writeln ('i=', i,', a[', i,']=', a[i])

end;

Write ('Массив: ') ; a. Println

end.

Результат

Первый цикл

i=0, a[0]=1

i=1, a[1]=2

i=2, a[2]=3

i=3, a[3]=4

i=4, a[4]=5

i=5, a[5]=6

i=6, a[6]=7

i=7, a[7]=8

i=8, a[8]=9

i=9, a[9]=10

i=10, a[10]=11

Массив: 1 2 3 4 5 6 7 8 9 10 11

Второй цикл

i=0, a[0]=11

i=1, a[1]=10

i=2, a[2]=9

i=3, a[3]=8

i=4, a[4]=7

i=5, a[5]=6

i=6, a[6]=7

i=7, a[7]=8

i=8, a[8]=9

i=9, a[9]=10

i=10, a[10]=11

Массив: 11 10 9 8 7 6 7 8 9 10 11