дана матрица размером NXM.Поменять местами столбец с номером 1 и последний из столбцов,содержащих только положительные элементы.Если требуемых столбцов нет,то вывести матрицу без изменений.
var a:array[1..100,1..100] of integer; n,m,i,j,k,c:integer; begin read (n,m); for i:=1 to n do for j:=1 to m do read (A[i,j]); c:=m+1; repeat c:=c-1; k:=1; for j:=1 to n do begin if A[j,c]<0 then k:=0; end; until (c=1) or (k<>0); if k<>0 then begin for i:=1 to n do begin k:=A[i,c]; A[i,c]:=A[i,1]; A[i,1]:=k; end; end; for i:=1 to n do begin for j:=1 to m do write (A[i,j],#32); writeln; end; readln end.
