Turbo Pascal

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

Question

Информатика

Киля

4 сентября, 14:47

Turbo Pascal

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

+2

Ответы (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;