JarTer_2

Const
    N = 7;
Var
    I, J, MaxI, MaxJ: Integer;
    Max: Real;
    A: Array [1..4, 1..4] Of Real;
Begin
    A[1, 1]:= N; A[2, 1]:= 2; A[3, 1]:= -1.1; A[4, 1]:= N + N / 10;
    A[1, 2]:= 0; A[2, 2]:= 4.4; A[3, 2]:= 2 * N; A[4, 2]:= 3;
    A[1, 3]:= -5; A[2, 3]:= 4 * N; A[3, 3]:= 3; A[4, 3]:= 3 - N;
    A[1, 4]:= 2; A[2, 4]:= 6; A[3, 4]:= N / 100; A[4, 4]:= 5;
    For J:= 1 To 4 Do Begin
        For I:= 1 To 4 Do Begin
            If A[I, J] > Max Then Begin
                Max:= A[I, J]; MaxI:= I; MaxJ:= J;
            End;
            Write(A[I, J]:4:4, ', ');
        End;
        WriteLn;
    End;
    WriteLn('Координаты максимального элемента: ', MaxI, ', ', MaxJ);
    ReadLn;
End.