Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 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, j2-1]10; else a[i, j]: =a[i, j]*c [i, j] end; writeln не могу понять в чем ошибка

199

220

Посмотреть ответы 2

Ответы на вопрос:

xlebic2008

Информатика

4,6(50 оценок)

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.