zadach30.BAS

{* Задача30 *}

REM basic

' Найти в каждой строке матрицы максимальный и минимальный элементы и поместить их на место первого и последнего элемента строки соответственно. Матрицу отпечатать в общепринятом виде
' F(N, M), где N≤20, M≤10


10 CLS : PRINT "МАССИВ F(N,M)": INPUT "N,M?:", Y, X
30 If Y < 0 Or X < 0 Or Y > 20 Or X > 10 Then 20
40 Dim F(Y, X)
50 For N = 1 To Y
60 For M = 1 To X
70 F(N, M) = INT(RND * 100) - 50: PRINT Using "####"; F(N, M);
80 If F(N, M) > Fmax Then Fmax = F(N, M): N1 = N: M1 = M
90 If F(N, M) < Fmin Then Fmin = F(N, M): N2 = N: M2 = M
100 Next M: PRINT
110 F(N2, M2) = F(N, X): F(N, X) = Fmin: Fmin = 0
120 F(N1, M1) = F(N, 1): F(N, 1) = Fmax: Fmax = 0
130 Next N: PRINT
140 For N = 1 To Y: For M = 1 To X
150 PRINT Using "####"; F(N, M);
160 Next M: PRINT : Next N
170 End