var a:array [1..30] of integer;

k,i:integer;

BEGIN

k:=0;

for i:=1 to 30 do begin

a[i]:=Random(50)+1;

write(a[i],' ');

if a[i]>30 then k:=k+1;

end;

writeln();

writeln(k);

end.

Program n_1;

var a: array [1..30] of integer; i, n: integer;

begin

   randomize;

   n:=0;

   for i:=1 to 30 do begin a[i]:=random(10000); write(a[i], ' '); end;

   writeln;

   for i:=1 to 30 do if a[i]>a[30] then n:=n+1;

   writeln(n);

end.

Ну диапазон если что сами можете подредактировать :D