Program zad;
uses crt;
var x:array[1..10] of integer;
k,f:integer;
Begin
clrscr;
randomize;
   for k:=1 to 10 do
      begin x[k]:=random(15)-3;
        write(x[k]:4); end;
        writeln;
        f:=0;
        for k:=1 to 10 do
      if x[k]<0 then begin f:=f+1; end; writeln('',f); readln;
End.