DIM M(1 TO 4,1 TO 4), MAXEL
' Заполним матрицу случайными значениями
RANDOMIZE TIMER
FOR y = 1 TO 4: FOR x = 1 TO 4
M(x, y) = (RND * 100) - 50
NEXT: NEXT
' Ищем максимальный элемент в 3-й строке
MAXEL = M(1, 3)
FOR x = 1 TO 4
IF M(x, 3) > MAXEL THEN MAXEL = M(x, 3)
NEXT
PRINT "Maksimalnyj element:"; MAXEL