Question

Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 10. в противном случае все отрицательные элементы матрицы возвести в квадрат. у меня получилось вот что: program s455; uses crt; const m=10; n=12; var a: array[1..m,1..n] of integer; i, j, k, s: integer; begin writeln('enter size'); readln; s: =0; for j: =1 to m do begin k: =0; for i: =1 to n do end; begin if a< 0 then begin k: =1; end; if k=1 then s: =s+1; end; begin; if k< 0 then a[i, j]: =a[i, j*2-1]*10; else a[i, j]: =a[i, j]*c [i, j] end; writeln не могу понять в чем ошибка

Answer 1

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<2 do                 if a[i,j]<0 then begin k:=k+1; d:= 3; end;        end;

if k>(m/2) then        begin        for i:= 1 to n do                 for j:= 1 to m do                 if a[i,j]<0 then a[i,j]:=a[i,j]*10 ;
        end
else
begin        for i:=1 to n do         for j:= 1 to m do         if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end;
for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;end.