{* Задача1 *}

REM basic

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


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