uses crt;
var x:array[1..100]of real;
n,i,k:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
k:=0;
for i:=1 to n do
begin
x[i]:=10*random-5;
x[n]:=-10*random;
if x[i]<0 then k:=k+1;
write(x[i]:6:2);
end;
writeln;
writeln('Kol otr=',k);
writeln;
writeln('Pereschitannyj massiv:');
for i:=1to n do
begin
if x[i]>0 then x[i]:=x[i]/x[i+1];
write(x[i]:6:2);
end;
readln
end.