Программа  удаления строки номер M  из целочисленной  матрицы X  максимального  размера 10×10 — Pascal(Паскаль)

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. 

Leave a Comment