Подробное описание как решить задачу

Const   n = 8; var   a: array[1..n]of integer;   i, j, k, max: integer; begin   max : = -maxint;   for i : = 1 to n do   begin       write('a[', i, ']= ');       readln(a[i]);       if a[i] > max then max : = a[i];   end;   writeln(' максимальный элемент массива = ', max);   //сортировка методом пузырька   for i : = 1 to n - 1 do       for j : = 1 to n - i do           if a[j] < a[j + 1] then begin               k : = a[j];               a[j] : = a[j + 1];               a[j + 1] : = k           end;   //вывод массива   for i : = 1 to n do write(a[i]: 4); end. тестовое решение: a[1]= 12 a[2]= 4 a[3]= 6 a[4]= 23 a[5]= 4 a[6]= 7 a[7]= 8 a[8]= 1   максимальный элемент массива = 23   23  12    8    7    6    4    4    1

Const   m = 10; // количество строк   n = 10; // количество столбцов var   arr: array [1..m, 1..n] of integer;   i,j,z,min,temp : integer; begin   for j : = 1 to m do     for i : = 1 to n do       arr[j, i] : = random(99);         writeln('исходный массив: ');     for j : = 1 to m do   begin     for i : = 1 to n do      write(arr[j, i] : 2, ' ');     writeln;   end;   for j : = 1 to m do   begin     for i : = 1 to n - 1 do     begin       min : = i;           for z : = i + 1 to n do           if arr[j, z] < arr[j, min]  then             min : = z;             temp : = arr[j, min];       arr[j, min] : = arr[j, i];       arr[j, i] : = temp;     end;   end;         writeln;   writeln('отсортированный массив');     for j : = 1 to m do   begin     for i : = 1 to n do      write(arr[j, i] : 2, ' ');     writeln;   end; end.