Developing.ru

procedure swap(var a, var b:integer);
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
Этой процедурой прогнать в цикле по i первую и последнюю строки (A[1,i] и A[N,i]), потом вторую и предпоследнюю (A[2,i] и A[N-1,i]) и т.д. до N/2

Дана матрица A(nm). Получить матрицу, получающуюся из данной: пере-становкой строк - первой с последней, второй с предпоследней и т.д. Назо-вем допустимым преобразованием матрицы перестановку двух строк и двух столбцов. без процедуры.
РЕШИТЕ ПЛИЗ.