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

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

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


textual

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

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]);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы