Исполнитель Робот умеет перемещаться по лабиринту, начерченному на плоскости, разбитой на клетки Между соседними (по сторонам) клетками может стоять стена, через которую Робот пройти не может. Робота есть девять команд. Четыре команды - это команды-приказы: Вверх вниз влево вправо Также у Робота есть команда закрасить, при которой закрашивается клетка, в которой Робот находитс. В настоящий момент. Ещё четыре команды — это команды проверки условий. Эти команды проверяют, свободен ли путь дл. Робота в каждом из четырёх возможных направлений: сверху свободно снизу свободно слева свободно справа свободно Для повторения последовательности команд можно использовать цикл «пока», имеющий следующи Вид: нц пока условие последовательность команд кц Выполните задание. P P resory rtors

//Pascal ABC.NET 3.1 сборка 1219

Var
 ar:array of integer;
 i,n:integer;

 procedure quicksort(var a:array of integer; Lo,Hi: integer);

procedure sort(l,r: integer);
var
i,j,x:integer;
begin
i:=l;
 j:=r;
 x:=a[random(r-l+1)+l];
repeat
while a[i]>x do i:=i+1;
 while x>a[j] do j:=j-1;
  if i<=j then
   begin
    if a[i]<a[j] then swap(a[i],a[j]);
    i:=i+1;
 j:=j-1;
  end;
    until i>=j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;

begin;
  randomize;
  sort(Lo,Hi)
end;

 begin
 readln(n);
 setlength(ar,n);
 n:=n-1;
 writeln('Array:');
 for i:=0 to n do
  begin
   ar[i]:=random(10);
   write(ar[i]:4);
  end;
 quicksort(ar,0,n);
 writeln;
 writeln('Final array:');
 for i:=0 to n do
 write(ar[i]:4);
end.

Пример ввода:
5
Пример вывода:
Array:
   8   7   5   9   4
Final array:
   9   8   7   5   4

Держи мой шаблон работы с матрицами, как раз пока только минимумы и максимумы

const
    handsfree = true;

var
    a: array[1..100, 1..100] of real;
    max, min: real;
    i, j, m, n: integer;

begin
    {ввод матрицы}
    if handsfree then begin
        n := random(20) + 2;
        m := random(20) + 2;
    end
    else begin
        write('n, m =');
        readln(n, m);
    end;

    writeln('Данные матрицы:');
    for i := 1 to m do
    begin
        for j := 1 to n do
            if handsfree then begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;

    {минимумы и максимумы}
    max := a[1, 1];
    min := a[1, 1];
    for i := 1 to m do
        for j := 1 to n do
        begin
            if max < a[i, j] then max := a[i, j];
            if min > a[i, j] then min := a[i, j];
        end;
    writeln('max = ', max);
    writeln('min = ', min);
end.