{* Задача8 *}

REM basic

' Дана целочисленная матрица A(N, M). Определить, встречается ли заданное целое K среди максимальных элементов столбцов этой матрицы


CLS : INPUT "Введите целое K = ", K 
PRINT "Введите целочисленную матрицу А" 
INPUT "Количество строк - ", N 
INPUT "Количество столбцов - ", M 
Dim A(N, M) 
For i = 1 To N 
  For j = 1 To M 
    PRINT "A(" ; i ; ", " ; j ; ") = " ; 
    INPUT A(i, j) 
  Next j 
Next i : CLS 
PRINT "Исходная матрица " 
For i = 1 To N 
  For j = 1 To M 
    PRINT A(i, j); 
  Next j : PRINT 
Next i : PRINT

Flag = 0 : j = 1 
While (j  JMax Then JMax = A(i, j) 
  Next i 
  If K = JMax Then Flag = 1 Else j = j + 1 
Wend 
PRINT "О т в е т : число"; K; 
If Flag = 1 Then 
    PRINT "встречается"; 
  Else PRINT "не встречается"; 
End If 
PRINT " среди максимальных элементов столбцов матрицы" 
End