Дан
двумерный массив a,
размером (nm).
Переставить каждый элемент побочной
диагонали с элементом первого столбца.  код паскаль....

Var a:array [1..50,1..50] of integer;m,n,i,j,k,b:integer;beginwriteln ('Введи количество столбцов и строк');readln (n,m);for i:=1 to n do beginfor j:=1 to m do begina[i,j]:=random(21)-10;write (a[i,j]:4);end;writeln;end;for i:=1 to n dofor j:=1 to m doif n=i+j-1 then begink:=a[i,j];b:=b+1;a[i,j]:=a[b,1];a[b,1]:=k;end;writeln;for i:=1 to n do beginfor j:=1 to m dowrite (a[i,j]:4);writeln;end;readln;end.