đề pdg nha trang 2010

uses crt;
var a:array[1..100] of integer;
    n,b,c,d,z,i,j,min:integer;
begin
clrscr;
randomize;
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do a[i]:=random(100);
for i:=1 to n do write(a[i]:3);
writeln;
write('nhap phan tu z:');readln(z);
min:=abs(a[1]-z);
for i:=1 to n do if abs(a[i]-z)<min then min:=abs(a[i]-z);
for i:=1 to n do if abs(a[i]-z)=min then write(a[i],' la phan tu gan nhat');
readln;
end.

uses crt;
var st,st2:string;
    a:array[1..100] of integer;
    i,n,j,k:integer;
begin
clrscr;
write('nhap so :');readln(st);
k:=0;
for i:=1 to length(st) do
    begin
        if i*2-1>length(st) then k:=i*2-1-length(st) else k:=i*2-1;
        a[k]:=ord(st[i])-48;
    end;
for i:=length(st) downto 1 do write(a[i]);
readln;
end.