Робот стоит в левом конце коридора, в клетке, обозначенной буквой Р

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

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
      int n;
      cout<<"n = ";  cin>>n;   // ввод количества элементов массива 
      int a[n];
// заполнение массива и вывод на экран
      for (int i=0;i<n;i++) { 
           a[i]=rand()%15;     cout<<a[i]<<" "; 
      } 
      cout<<endl;  // перевод строки
// сортировка массива по возрастанию
      for (int i=0; i<n-1; i++)
      for (int j=i+1; j<n; j++) 
           if (a[i]>a[j]) swap(a[i],a[j]);
// вывод 4 минимальных
      cout<<"four min numbers:  ";
      for (int i=0; i<4; i++)  cout<<a[i]<<" ";
      cout<<endl;
      system("pause");  // ожидание ввода с клавиатуры
      return 0;
  }