Var
a: array[0..10] of integer;
i, n, k: integer;
begin
for i := 0 to 10 do
A[i] := i + 1;
for i := 0 to 10 do
begin
A[i] := A[10 - i];
PrintLn(a);
end;
end.
Трасировка А
[11,2,3,4,5,6,7,8,9,10,11]
[11,10,3,4,5,6,7,8,9,10,11]
[11,10,9,4,5,6,7,8,9,10,11]
[11,10,9,8,5,6,7,8,9,10,11]
[11,10,9,8,7,6,7,8,9,10,11]
[11,10,9,8,7,6,7,8,9,10,11]
[11,10,9,8,7,6,7,8,9,10,11]
[11,10,9,8,7,6,7,8,9,10,11]
[11,10,9,8,7,6,7,8,9,10,11]
[11,10,9,8,7,6,7,8,9,10,11]
[11,10,9,8,7,6,7,8,9,10,11]
Ответ 3