Question

Данй массив из целых чисел а(3,3). Определить минимальные элементы в каждой строке. Из них найти максимальный элемент

Answer 1

const
  n = 3;
var
  a:array[1..n,1..n] of integer;
  minc:array[1..n] of integer;
  i,j,min,maxr:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    min:=100;
    for j := 1 to n do
    begin
      a[i,j]:=Random(21)-10;
      Write(a[i,j]:4);
      if min>a[i,j] then min:=a[i,j]
    end;
    Writeln;
    minc[i]:=min
  end;
  maxr:=-100;
  Write('Минимальные элементы построчно: ');
  for i:=1 to n do
  begin if maxr<minc[i] then maxr:=minc[i]; Write(minc[i]:4) end;
  Writeln;
  Writeln('Максимальный среди минимальных: ',maxr)
end.

Тестовое решение:
Исходный массив
  10  -3   6
  -2   6   4
   0   8 -10
Минимальные элементы построчно:   -3  -2 -10
Максимальный среди минимальных: -2