{* Задача119 *}

REM basic

' Дан массив из целых чисел Cij, i=1,5; j=1,5. Найти минимальный положительный и максимальный отрицательный элементы матрицы, заменив их элементом, стоящим на пересечении двух диагоналей.


CLS: n = 5: Dim a(n, n)
For i = 1 To n: For j = 1 To n
        PRINT "vvedite a("; i; ","; j; ")";
        INPUT a(i, j)
Next: Next
For i = 1 To n: For j = 1 To n
        PRINT a(i, j);
Next: PRINT: Next
min = 1E38:: max = -1E38
For i = 1 To n: For j = 1 To n
        If a(i, j) > 0 And a(i, j) < min Then min = a(i, j): i1 = i: j1 = j
        If a(i, j) < 0 And a(i, j) > max Then max = a(i, j): i2 = i: j2 = j
Next: Next
a(i1, j1) = a(3, 3): a(i2, j2) = a(3, 3)
PRINT "min="; min, "max="; max
For i = 1 To n: For j = 1 To n
        PRINT a(i, j);
End