Дан массив из 10 элементов целого типа определить количество положительных и отрицательных элементов массива.

Var

mas: array[1 ... 10] of integer;

plus, minus, i:integer;

begin

randomize;

write ('Массив: ') ;

for i : = 1 to 10 do begin

mas[i]:=random (10) - 5;

write (' ', mas[i]) ;

if (mas[i] > 0) then

plus:=plus+1;

if (mas[i] < 0) then

minus:=minus+1;

end;

writeln () ;

writeln ('Положительных = ', plus) ;

writeln ('Отрицательных = ', minus) ;

end.