Turbo Pascal

Напишите программу, которая в заданной матрице заменяет все положительные элементы нулями, если количество отрицательных элементов окажется больше, чем количество положительных элементов.

Question

Информатика

Николайка

28 июля, 02:41

Turbo Pascal

Напишите программу, которая в заданной матрице заменяет все положительные элементы нулями, если количество отрицательных элементов окажется больше, чем количество положительных элементов.

+4

Ответы (1)

Знаете ответ на вопрос?

Евгеха · Answer 1

For i:=1 to n do

begin

if (a[i]>0)

then

plus:=plus+1

else (a[i]!=0)

minus:=minus+1;

end;

if (minus>plus)

for i:=1 to n do

begin

if (a[i]>0)

then

a[i]:=0;

end;