Chương trình khá dài nhưng rất dễ hiểu nha

program taorandom;

uses crt;

var A:array[1..49] of integer;

      n,i,d:byte;

      k:integer;

begin

clrscr;

randomize;

n:=random(49);

for i:=1 to n do

 A[i]:=random(10000);

writeln('Mang tao ngau nhien la: ');

for i:=1 to n do

 write(A[i]:4);

writeln;

write('Nhap k: ');   readln(k);

d:=0;

for i:=1 to n do

 if A[i]>k then d:=d+1;

writeln('Trong day co ',d,' so lon hon ',k);

if d=0 then write('Khong co nen khong viet')

 else if d=1 then 

  begin

    for i:=1 to n do

     if A[i]>k then write('So do la: ',A[i]);

  end

else

 begin

  write('Cac so lon hon ',k,' trong day la: ');

  for i:=1 to n do

   if A[i]>k then write(A[i]);

  end;

readln

end.

uses crt;
var i,n,k:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('n,k=');readln(n,k);
   randomize;
   for i:=1 to n do
         a[i]:=random(100);
   write('Cac phan tu lon hon k: ');
   for i:=1 to n do if a[i]>k then write(a[i],' ');
readln
end.