Программа  поэлементной  перестановки   двух строк заданной целочисленной матрицы максимального размера 10×10 — Pascal(Паскаль)

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.

Leave a Comment