Đề thi Nha Trang 2010(Giải)

Bài 1:Nhập dãy số nguyên ngẫu nhiên và một số nguyên bất kì.Xuất ra số trong dãy gần với số đó nhất.
uses crt;
var a:array[1..100] of integer;
n,z,i,min,x:integer;
begin
clrscr;
randomize;
write('Nhap so phan tu:');readln(n);
for i:=1 to n do a[i]:=random(50);
writeln('Day so nguyen:');
for i:=1 to n do write(a[i]:5);writeln;
write('Nhap so nguyen bat ki:');readln(z);
min:=abs(a[1]-z);x:=a[1];
for i:=1 to n do if abs(a[i]-z)<min then
begin
min:=abs(a[i]-z);
x:=a[i];
end;
writeln('So gan ',z,' nhat la:',x);
readln;
end.

Bài 2:Nhập số chữ số k,xem có số Kapreka có k chữ số trong hệ thập phân ko?Nếu có xuât ra số đó.
uses crt;
var a:string;
k,i,j,code,z:integer;
b,c,x,y,so:longint;
{-}
procedure dc(var a,b:char);
var i:char;
begin
i:=a;a:=b;b:=i;
end;
{-}
begin
clrscr;
write('Nhap so chu so:');readln(k);
b:=1;z:=0;
for i:=1 to k-1 do b:=b*10;c:=b*10-1;
writeln('Cac so Kapreka co ',k,' chu so trong he thap phan la:');
for so:=b to c do
begin
str(so,a);
for i:=1 to length(a)-1 do for j:=i+1 to length(a) do if a[i]<a[j] then dc(a[i],a[j]);
val(a,x,code);
for i:=1 to length(a)-1 do for j:=i+1 to length(a) do if a[i]>a[j] then dc(a[i],a[j]);
val(a,y,code);
if x-y=so then
begin
writeln(so);
z:=z+1;
end;
end;
if z=0 then writeln('Ko co so Kapreka co ',k,' chu so trong he thap phan');
readln;
end.