Program dmas_12;
uses crt;
const
n = 3;
m = 4;
Var
a: array [1 .. n, 1 .. m] of integer;
max, i, j: integer;
Begin
randomize;
For i := 1 to n do
begin
For j := 1 to m do
begin
a[i, j] := random(10);
write(a[i, j]:4);
end;
writeln;
end;
For j := 1 to m do
begin
max := a[1, j];
For i := 1 to n do
If max < a[i, j] then
max := a[i, j];
writeln(' Наибольший элемент ', j, ' столбца = ', max);
End;
Readln;
End.