{* Задача4 *}

REM basic

' В заданной матрице A(N, M) поменять местами строки с номерами P и Q
' (1 <= P <= N, 1 <= Q <= N).


CLS
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 : PRINT

INPUT "P = " , P : INPUT "Q = " , Q

CLS : PRINT "Исходная матрица :"
For i = 1 To N 
  For j = 1 To M
    PRINT A(i, j) ;
  Next j
  PRINT
Next i

For j = 1 To M 
  Tmp=A(P,j):A(P,j)=A(Q,j):A(Q,j)=Tmp
Next j

PRINT : PRINT "Матрица-результат :"
For i = 1 To N 
  For j = 1 To M
    PRINT A(i, j) ;
  Next j
  PRINT 
Next i
End