SerSav_1

CONST N = 5
DIM M(1 TO N, 1 TO N) AS INTEGER
DIM I AS INTEGER, J AS INTEGER, MaxI AS INTEGER, MaxJ AS INTEGER
DIM MinI AS INTEGER, MinJ AS INTEGER, S AS INTEGER, P AS LONG
DIM SqRow1 AS INTEGER, SqRow2 AS INTEGER
DIM SqCol1 AS INTEGER, SqCol2 AS INTEGER
RANDOMIZE TIMER
FOR I = 1 TO N
    FOR J = 1 TO N
        M(I, J) = 1 + (INT(RND * 20) + 1)
        PRINT M(I, J);
    NEXT J
    PRINT
NEXT I

MaxI = 1: MaxJ = 1: MinI = 1: MinJ = 1
FOR I = 1 TO N
    FOR J = 1 TO N
        IF M(I, J) > M(MaxI, MaxJ) THEN
            MaxI = I: MaxJ = J
        END IF
        IF M(I, J) < M(MinI, MinJ) THEN
            MinI = I: MinJ = J
        END IF
    NEXT J
NEXT I
PRINT "Maximalni element ="; M(MaxI, MaxJ); "raspologen v"; MaxI; "stroke i"; MaxJ; "stolbce"
PRINT "Minimalni element ="; M(MinI, MinJ); "raspologen v"; MinI; "stroke i"; MinJ; "stolbce"

IF MaxI < MinI THEN
    SqRow1 = MaxI
    SqRow2 = MinI
ELSE
    SqRow1 = MinI
    SqRow2 = MaxI
END IF
IF MaxJ < MinJ THEN
    SqCol1 = MaxJ
    SqCol2 = MinJ
ELSE
    SqCol1 = MinJ
    SqCol2 = MaxJ
END IF
PRINT
PRINT "praymougolnik: ot"; SqRow1; "do"; SqRow2; "stroki"
PRINT "i ot"; SqCol1; "do"; SqCol2; "stolbca"
PRINT

S = 0: P = 1
FOR I = 1 TO N
    FOR J = 1 TO N
        IF I < SqRow1 OR I > SqRow2 OR J < SqCol1 OR J > SqCol2 THEN
            S = S + M(I, J)
        ELSE
            P = P * M(I, J)
        END IF
    NEXT J
NEXT I
PRINT "summa vneshnih ravna"; S
PRINT "proizvedenie vnutrennih ravno"; P