var
a:array [1..1000] of real;
i,p,c:integer;
begin
write ('p=');
readln (p);
c:=0;
for i:=1 to p do begin
write ('a[',i,']=');
readln (a[i]);
if a[i]>0 then inc(c);
end;
writeln ('положительных элементов  ',c);
readln
end.

CONST
 D=16;
VAR
 A,B:Array[1..D] of Integer;
 i:integer;
 N:Byte;

BEGIN
 Randomize;
 N:=0;
 for i:=1 to D do
  begin
   A[i]:=-100+Random(91);
   write(A[i]:5);
   If (A[i] mod 2)=-1 then
    begin
     N:=N+1;
     B[N]:=A[i];
    end;
  end;
 WriteLn;
 WriteLn;
 For i:=1 to N do
  Write(B[i]:5);
 WriteLn;
 ReadLn;
END.