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.
