#include <iostream>
using namespace std;
int main()
{
int N;
int i1=0,i2=0;
cin>>N;
for(int i=0;i<N;i++)
{
int a = rand()%11-5;
if(a<0)
i1++;
if(a>0)
i2++;
}
cout<<">0 - "<<i2<<endl<<"<0 - "<<i1<<endl<<"!=0 - "<<i1+i2<<endl;
system("PAUSE");
}
P.S. Задачу можно решить не только через Turbo Pascal.
TurboPascal(может не очень верно)
var
a,n, i1, i2, i: integer;
begin
n := 42;
for i:=1 to n do begin
a:=random(11)-5;
if a > 0 then
i1 := i1 + 1;
if a < 0 then
i2 := i2 + 1;
end;
writeln("> 0-", i1);
writeln("< 0-", i2);
writeln("<>0-", i1+i2);
end.
Нуль считаем особым числом ни положительным ни отрицательным.
Program Amount;
Uses crt;
var i,n,otr,pol,nz,v:integer;
begin
clrscr;
write('Input n=');
readln(n);
otr:=0;nz:=0;pol:=0;
randomize;
for i:=1 to n do
begin
v:=random(10)-5;
write(v);write(' ');
if (v>0) then pol:=pol+1
else if (v<0) then otr:=otr+1;
end;
nz:=otr+pol;
writeln;
writeln('Amount of positive numbers:',pol); {Кол-во полжительных чисел}
writeln('Amount of negative numbers:',otr); {Кол-во отрицательных чисел}
writeln('Amount of non-zero numbers:',nz); {Кол-во ненулевых чисел}
readkey;
end.