Question

Двумерный массив (10x10). Найти максимум в каждой строке и минимум в каждом столбце.

Answer 1

Const
   N = 10;
Var
   A:array[1..N,1..N] of integer;
   i,j,M:integer;
Begin
Randomize;
For i:= 1 to N do
    Begin
    M:=1;
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ');
        if A[i,M]<A[i,j] then M:=j;
        End;
    WriteLn(' Max = ',A[i,M]);
    End;
WriteLn('Минимумы:');
For j:= 1 to N do
    Begin
    M:=1;
    For i:= 1 to N do
        if A[i,j]<A[M,j] then M:=i;
    Write(A[M,j]:3,' ');
    End;
End.