Programlama2000 Software & Internet Security

Girilen 10 adet sayı içerisinden kullanıcı isteğine göre girilen bir sayıya en yakın sayıyı bulan program

USES CRT;
VAR
 DIZI:ARRAY[1..11] OF INTEGER;
 GECICI,ONCEKI,GIRIS,SONRAKI,SONUC1,SONUC2,J,K:INTEGER;
BEGIN CLRSCR;
 FOR J:=1 TO 10 DO
   BEGIN
     WRITE(J,’.SAYIYI GIRIN :’);
     READLN(DIZI[J]);
   END;

   WRITELN();
   WRITE(‘ISTENILEN SAYI :’);
   READLN(GIRIS);
   DIZI[11]:=GIRIS;
 FOR J:=1 TO 11 DO
   BEGIN
     FOR K:=J+1 TO 11 DO
       BEGIN
        IF DIZI[J]<DIZI[K] THEN
         BEGIN
          GECICI:=DIZI[J];
          DIZI[J]:=DIZI[K];
          DIZI[K]:=GECICI;
         END;
       END;
    END;

  FOR J:=1 TO 11 DO
   BEGIN
    IF DIZI[J]=GIRIS THEN
     BEGIN
      ONCEKI:=DIZI[J-1];
      SONRAKI:=DIZI[J+1];
      SONUC1:=GIRIS-ONCEKI;
      SONUC2:=SONRAKI-GIRIS;
     END;
   END;

   IF SONUC1>SONUC2 THEN
     WRITE(GIRIS,’ SAYISINA EN YAKIN SAYI :’,SONRAKI)
    ELSE
     WRITE(GIRIS,’ SAYISINA EN YAKIN SAYI :’,ONCEKI);

READLN;
END.