Question

составить программу подсчета кол-ва положительных отрицательных чисел в произвольном числовом ряду
Помогите решить в Паскале

Answer 1

program n_1; 
uses crt;
var a: array [1..5] of integer; 
otr,pol,i: byte;
begin 
for i:=1 to 5 do  begin 
a[i]:=random(10)-5; 
write(a[i]:3);   
 if a[i]>0 then pol:=pol+1 else     
if a[i]<0 then otr:=otr+1; 
end; 
writeln; 
writeln('Положительных: ',pol,'; Отрицательных: ',otr);

end.