program ngaunhien;
uses crt;
var A:array[1..50] of integer;
n,i,d,k:integer;
begin
clrscr;
write('Nhap so luong phan tu cua mang: '); readln(n);
randomize;
for i:=1 to n do
A[i]:=random(65534)-32766;
writeln('Mang vua tao la: ');
for i:=1 to n do
write(A[i],' ');
writeln;
write('Nhap k: '); readln(k);
d:=0;
for i:=1 to n do
if A[i]>k then d:=d+1;
if d=0 then write('Khong co phan tu nao trong mang lon hon ',k)
else
begin
write('Co ',d,' phan tu trong mang lon hon ',k)
write('Cac so lon hon ',k,' trong mang la: ');
for i:=1 to n do
if A[i]>k then write(A[i],' ');
end;
readln
end.
