• Плиииз! Нужна помощь! Задан числовой массив А(50). Определить, каких элементов больше в этом массиве: положительных или отрицательных.
    При решении учтите, что число 0 не относится ни к отрицательным, ни к положительным числам.

Ответы 3

  • Впервые такую "логику" встречаю. Проверяется условие: "если значение больше нуля и не равно нулю" (зачем вторая проверка? Само собой, если значение больше нуля, то равно нулю оно никак быть не может). И далее опять "иначе, если значение меньше нуля и не равно нулю" (опять ненужная проверка на неравенство нулю). А зачем на выводе после значений plus и minus пробелы выводить, если потом смена строки идет - это вообще удивительно.-
  • Но работать "это" будет, так что в целом правильно.
    • Автор:

      crystal4
    • 6 лет назад
    • 0
  • //писал на скорую руку, должно все правильно работатьvara,plus,minus,d:integer;c:array[1..50] of integer;beginplus:=0;minus:=0;for a:=1 to 50 doc[a]:=random(20)-10;//заполняем массив рандомоfor a:=1 to 50 do//проверям условиеif ((c[a]>0) and (c[a]<>0)) thenplus:=plus + 1else if ((c[a]<0) and (c[a]<>0)) then minus:= minus + 1;Writeln(plus,' ');//кол-во положWriteln(minus,' ');//кол-во отрицif (plus>minus)then Writeln('Положительных')else Writeln('Отрицательных');end.
    • Автор:

      conner298
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years