Добавить комментарии в программу:

[anasttb]

var
a: array [1..10, 1..10] of integer;
n: array [1..100] of integer;
i, j, k, max, min, e, b, b1, p: integer;
begin
max :=a[1,1];
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(100);
Write(a[i, j]:4);
if a[i, j] > max then max := a[i, j];
end;
writeln();
end;
k := 1;
for i := 1 to 10 do
for j := 1 to 10 do
begin
begin
if a[i, j] = max then
Writeln('MAX значение массива ', max, ' находится в ', i, ' строке ', j, ' столбце.');
end;
n[k] := a[i, j];
k := k + 1;
end;
for p := 1 to 99 do
begin
min := n[p];
b1 := p;
for k := p to 100 do
if n[k] < min then
begin
min := n[k];
b1 := k;
end;
b := n[b1];
n[b1] := n[p];
n[p] := b;
end;
e := 0;
for k := 1 to 100 do
begin
if e <= 10 then
begin
write(n[k]:4);
e := e + 1;
end;
if e = 10 then
begin
e := 0;
writeln;
end;
end;
end.

[newerow1989]

var
   a: array [1..10, 1..10] of integer;
   n: array [1..100] of integer;
   i, j, k, max, min, e, b, b1, p: integer;
begin
   max :=a[1,1];//возможная ошибка
   //сгенерировать массив 10х10 случайными числами от 0 до 99
   for i := 1 to 10 do
   begin
      for j := 1 to 10 do 
      begin
         a[i, j] := random(100);
         Write(a[i, j]:4);//вывод массива 
         if a[i, j] > max then max := a[i, j];//поиск максимального элемента в массиве
      end;
      writeln();
   end;
   //выводим максимальный элемент и его позицию
   k := 1;
   for i := 1 to 10 do
      for j := 1 to 10 do
      begin
         begin
            if a[i, j] = max then
               Writeln('MAX значение массива ', max, ' находится в ', i, ' строке ', j, ' столбце.');
         end;
         n[k] := a[i, j];//переписываем двумерный массив в одномерный
         k := k + 1;
      end;
   //сортировка
   for p := 1 to 99 do
   begin
      min := n[p];//запоминаем текущий элемент
      b1 := p;
      for k := p to 100 do
         if n[k] < min then 
         begin
            min := n[k];//ищем минимальный элемент с текущей позиции до конца массива
            b1 := k;
         end;
      //обмен элементов
      b := n[b1];
      n[b1] := n[p];
      n[p] := b;
   end;
   //вывод одномерного массива
   e := 0;
   for k := 1 to 100 do 
   begin
      if e <= 10 then 
      begin
         write(n[k]:4);
         e := e + 1;
      end;
      if e = 10 then //в каждом ряду по 10 элементов содержится
      begin
         e := 0; 
         writeln; 
      end;
   end;
end.

[anasttb]

Очень помогли)

Сообщение от newerow1989

var
   a: array [1..10, 1..10] of integer;
   n: array [1..100] of integer;
   i, j, k, max, min, e, b, b1, p: integer;
begin
   max :=a[1,1];//возможная ошибка
   //сгенерировать массив 10х10 случайными числами от 0 до 99
   for i := 1 to 10 do
   begin
      for j := 1 to 10 do 
      begin
         a[i, j] := random(100);
         Write(a[i, j]:4);//вывод массива 
         if a[i, j] > max then max := a[i, j];//поиск максимального элемента в массиве
      end;
      writeln();
   end;
   //выводим макимальный элемент и его позицию
   k := 1;
   for i := 1 to 10 do
      for j := 1 to 10 do
      begin
         begin
            if a[i, j] = max then
               Writeln('MAX значение массива ', max, ' находится в ', i, ' строке ', j, ' столбце.');
         end;
         n[k] := a[i, j];//переписываем двумерный массив в одномерный
         k := k + 1;
      end;
   //сортировка
   for p := 1 to 99 do
   begin
      min := n[p];//запоминаем текущий элемент
      b1 := p;
      for k := p to 100 do
         if n[k] < min then 
         begin
            min := n[k];//ищем минимальный элемент с текущей позиции до конца массива
            b1 := k;
         end;
      //обмен элементов
      b := n[b1];
      n[b1] := n[p];
      n[p] := b;
   end;
   //вывод одномерного массива
   e := 0;
   for k := 1 to 100 do 
   begin
      if e <= 10 then 
      begin
         write(n[k]:4);
         e := e + 1;
      end;
      if e = 10 then //в каждом ряду по 10 элементов содержится
      begin
         e := 0; 
         writeln; 
      end;
   end;
end.

[newerow1989]