{* Задача27 *}

REM basic

' Дан двумерный массив. Заменить максимальный элемент на число Р


CLS
INPUT "Введите число элементов массива"; n
INPUT "Введите число Р";  p
Dim a(n,n)
For i=1 To n
For j=1 To n
PRINT "Введите a("; i; j; ")"
INPUT a(i, j)
Next j
Next i
PRINT "Исходная матрица"
For i=1 To n
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
max=a(1,1)
K=1
L=1
For i=1 To n
For j=1 To n
If a(i,j)>max Then 
max=a(i,j)
a(i,j)=p
End If
Next j
Next i
PRINT "max= "; max
PRINT "Преобразованная матрица"
For i=1 To n
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
End