В программе описан одномерный целочисленный массив. 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