Program p75 (Input, Output);
Type
Matr = Array [1..10, 1..10] Of Integer;
Var
X : Matr;
i, j: Integer;
N, M : Integer;
Begin
WriteLn('PASCAL: Удаление строки из матрицы.');
WriteLn ('Введите входные данные: ');
WriteLn ('Число строк матрицы N (N<=10): ' );
ReadLn (N);
WriteLn ('Введите матрицу X:');
For i := 1 To N Do
For j := 1 To N Do
Begin
Write ('X[', 1: 2, ',', j: 2, '] = ');
ReadLn (X [i, j] )
End;
Write ('Введите номер позиции M: ');
ReadLn (M);
For i := M To (N - 1) Do
For j := 1 To N Do
X [ i , j ] := X [ i + 1 , j ];
WriteLn ('Матрица после удаления строки: ');
For i := 1 To (N - 1) Do
Begin
For j := 1 To N Do
Write (X [i, j] : 4);
WriteLn;
End;
ReadLn;
End.