Program P76 (Input, Output);
Var
S : Integer;
X : Array [1..10, 1..10] Of Integer;
M, N : Integer;
Q, P: Integer;
i, j: Integer;
Begin
WriteLn ('PASCAL: Перестановка двух строк матрицы.');
WriteLn ('Введите входные данные:');
Write ('Число строк таблицы (массива) N = '); ReadLn (N);
Write ('Число столбцов таблицы (массива) M = '); ReadLn (M);
WriteLn ('Введите таблицу (массив) X:');
For i := 1 To N Do
For j := 1 To M Do
Begin
Write ('X[', i: 2, ',', j: 2, ']', ' = ');
Read (X [i, j] );
End;
WriteLn ('Введите номера переставляемых строк:');
Write ('Q = '); ReadLn (Q);
Write ('P = '); ReadLn (P);
For i := 1 To M Do
Begin
S := X [Q, i];
X [Q, i] := X [P, i];
X [P, i] := S;
End;
WriteLn ('Таблица после перестановки:');
For i := 1 To N Do
Begin
For j := 1 To M Do
Write (X [i, j] : 4);
WriteLn;
End;
ReadLn;
End.