Матрица

[AlexKent]

Дана квадратная матрица порядка M. Зеркально отразить ее элементы относительно горизонтальной оси симметрии матрицы.
Можете помочь написать код? Сам пытался, но не получилось.
Вот наработки:

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var
  matr : Array[1..4,1..4] Of Integer;
  i,j,t : Integer;
Begin
 
 
  For i:=1 To 4 Do
  For j:=1 To 4 Do
 
 
  For i:=1 To 4 Do
  For j:=1 To (4 Div 2) Do
  Begin
    t:=matr[i,j];
    matr[i,j]:=matr[i,4-j+1];
    matr[i,4-j+1]:=t;
  End;
  Readln;
 
end.

[Arigato]

Как-то так:

for i:=1 to M div 2 do
  for j:=1 to M do begin
    temp:=A[i,j];
    A[i,j]:=A[M-i+1,j];
    A[M-i+1,j]:=temp;
  end;

Ввод, вывод и переменные сам допишешь.

[ZX Spectrum-128]

http://www.programmersforum.ru/showthread.php?t=16909