Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 10. В противном случае все отрицательные элементы матрицы возвести в квадрат. У меня получилось вот что: program s455;uses crt;const m=10; n=12;Var A: array[1..m,1..n] of integer; i, j, k, s: integer; Beginwriteln(Enter size);readln;s:=0;for j:=1 to m do begin k:=0; for i:=1 to n do end; begin if a

var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m);
for i:=1 to n do for j:= 1 to m doread(a[i,j]);
j:=0;
        for i:=1 to n do        begin        j:=j+1;        d:=0;                 while d
if k>(m/2) then        begin        for i:= 1 to n do                 for j:= 1 to m do                 if a[i,j]        end
else
begin        for i:=1 to n do         for j:= 1 to m do         if a[i,j]for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j], );end;end.