Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями - Pascal (80219)

Формулировка задачи:

Дан двумерный целочисленный массив. Нужно поменять друг с другом выделенные красным цветом диагонали(над половиной главной диагонали и под половиной побочной).

Код к задаче: «Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями - Pascal (80219)»

textual
procedure swp(var a, b: Integer); var t: Integer; begin t:=a; a:=b; b:=t; end;
const m=7; n=m;
var
  a: array [1..m,1..n] of Integer;
...
  i:=m div 2; if i>n then i:=n;
  for i:=i downto 1 do swp(a[i,1+i],a[1+m-i,1+i]);

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ