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

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

Но работать "это" будет, так что в целом правильно.

//писал на скорую руку, должно все правильно работать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.