4 на 4 мах

Ответ от RaMpiR[гуру]
var
mat:array [1..4;1..4] of byte;
str,stolb:byte;
min:aray [1..4] of byte;
BEGIN
randomize;
for str:=1 to 4 do
min[str]:=0;
for stolb:=1 to 4 do
for str:=1 to 4 do
mat[str,stolb]:=random(10);
for stolb:=1 to 4 do
for str:=1 to 3 do
begin
if min[stolb] > mat[str,stolb] then
min[stolb]:=mat[str,stolb]
end;
for str=1 to 4 do
writeln(min[str]);
END.
если чо неясно спрашивай
малость попутал это для нахождения мин значения ну думаю на макс испраить небудет проблем
Источник: мозг