Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 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

Не могу понять в чем ошибка

Question

Информатика

Аверий

3 ноября, 12:35

Если в прямоугольной матрице меньше половины столбцов содержит отрицательные элементы, то все элементы с нечетными номерами столбцов умножить на 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

Не могу понять в чем ошибка

+1

Ответы (1)

Знаете ответ?

Асафий · 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.