Учебник. К.Ю Поляков, Е.А. Ерёмин. Информатика. 10 класс. Углублённый уровень. §67 Матрицы

Задача T. Отражение по вертикали

PASCAL

program p66T;

var mtr:array of array of longint;

    n,m:byte; //количество строк и столбцов

    i,j:longint;

begin

   readln(n,m);

   SetLength(mtr,n);

   for i:=0 to n-1 do SetLength(mtr[i],m);     

   for i:=0 to n-1 do

      for j:=0 to m-1 do read(mtr[i,j]);     

   for i:=0 to (n-1)  div 2 do

      for j:=0 to m-1 do swap(mtr[i,j],mtr[n-1-i,j]);     

   for i:=0 to n-1 do

      begin

      for j:=0 to m-1 do write(mtr[i,j],' ');

      writeln;

      end;

end.