Question

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

Answer 1

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