TURBO PASCAL:Учебное пособие. Терёхин В.В. - 71 стр.

          Задача. Дана матрица М — n*n. Поменять в матрице
строку с номером А на столбец с номером В. Элемент на пере-
сечении строки и столбца оставить без изменения.
program p24 ;
const
   n= 4;
   М: array[ l .. n, l .. n] of Integer =
        ( (1, 3, 5, 7),
        (2, 4, 6, 8),
        (0, 1, 2, 3),
        (4, 5, 6, 7)) ;
var
   i, j, a, b, t: integer;
   Temp: array[1.. n] of Integer;
begin
   Writeln('Введите номер строки а и номер столбца b');
   Read(а, b);
   t:=M[a,b]; {- запомним элемент на пересечении}
   for i:=l to n do {- запомним строку в массиве Temp}
        Temp[i]:= M[a, i];
   for i:= 1 to n do {- на место строки запишем столбец}
        М[а, i] := M[i, b] ;
   for i:= 1 to n do {- на место, столбца запишем строку}
        M[i, b] := Temp [i] ;
   M[a, b]:= t; {- восстановим элемент на пересечении}
   {Вывод результатов}
   for i:= 1 to n do
   begin
        for j:= 1 to n do Write(M[i, j]: 3 );
         Writeln;
   end;
end.

          Задачи для самостоятельного решения
                                                          71