rem
CLS
PRINT "Введиет количество строк"
INPUT s
PRINT "Введите количество столбцов"
INPUT t
DIM tabl(1 TO s, 1 TO t) AS INTEGER
FOR i=1 TO s
FOR j=1 TO t
tabl(i,j)= 1+INT(RND*100)
PRINT tabl (i,j)
NEXT j
PRINT
NEXT i
max = tabl (1,1)
PRINT "Введите номер строки"
INPUT n
FOR i=1 TO n -1
FOR j=1 TO t
IF max < tabl (i,j) THEN max = tabl (i,j)
NEXT j
NEXT i
PRINT "Максимальный элемент выше"; n; "строки ="; max
FOR i=1 TO s
FOR j=1 TO t
IF i MOD 2 = 0 THEN sum = sum + tabl(i,j)
NEXT j
NEXT i
PRINT "Сумма элементов четных строк ="; sum
END