Turbo Pascal Напишите программу, которая в заданной матрице заменяет все положительные элементы нулями, если количество отрицательных элементов окажется больше, чем количество положительных элементов.
Ответы:
03-12-2015 04:44
for i:=1 to n dobegin 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;
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Turbo Pascal Напишите программу, которая в заданной матрице заменяет все положительные элементы нулями, если количество отрицательных элементов окажется больше, чем количество положительных элементов.» от пользователя Гуля Воробей в разделе Русский язык. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!