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