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

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
Writeln;

Writeln ('Максимальный среди минимальных: ', maxr)

end.

Тестовое решение:

Исходный массив

10 - 3 6

-2 6 4

0 8 - 10

Минимальные элементы построчно: - 3 - 2 - 10

Максимальный среди минимальных: - 2