program asd;
uses crt;
const n=20;
var q,x:array[1..n] of integer;
j,l,i,v,f:integer;
u:real;
BEGIN clrscr;
randomize;
l:=n;
for i:=1 to n do BEGIN f:=0;
x[i]:=random(60);
write(' ',x[i]);
end ;
writeln;
writeln('введите а');
readln(v) ;
for i:=1 to n do if x[i]>abs(v) then f:=f+1;
write('n=', f) ;
end .