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

Lizevette Lizevette    3   08.06.2019 23:40    1

Ответы
XOBasya XOBasya  01.10.2020 22:38
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;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика