Дан массив. по возрастанию и число b неравное ни одному из этих элементов.найти элемент массива ближайший к b.

Var a: array[1..10] of integer; i,b,ind,el,min: integer; begin min: =1000000; for i: =1 to 10 do read(a[i]); readln; read(b); for i: =1 to 10 do begin if abs(a[i]-b)< min then begin min: =abs(a[i]-b); el: =a[i]; ind: =i; end; end; write(el,' ',ind);   //выводит элемент, а затем его индекс. end.

program start; var x,y,z: integer; beginreadln(x,y,z); if (x mod 2 = 0) and (y mod 2 = 0) and (z mod 2 = 0) then writeln('кол-во: 3 | произведение: ' , z*y*x) else if (x mod 2 = 0) and (y mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , y*x) else if (x mod 2 = 0) and (z mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , z*x) else if (z mod 2 = 0) and (y mod 2 = 0) then writeln('кол-во: 2 | произведение: ' , y*z) else if (x mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , x) else if (y mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , y) else if (z mod 2 = 0) then writeln('кол-во: 1 | произведение: ' , z) else writeln('все числа нечетные! ');

end.

const

  y = 5;

  x = 2;

var

  x1,x2,y1,y2: integer;

begin

  write('x1 = ');   readln(x1);

  write('y1 = ');   readln(y1);

  write('x2 = ');   readln(x2);

  write('y2 = ');   readln(y2);

 

  if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   <   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

      writeln('a ближе')

  else

        if sqrt(  (x1-x) * (x1-x)  + (y1 - y) * (y1 - y))   >   sqrt(  (x2-x) * (x2-x)  + (y2 - y) * (y2 - y)) then

            writeln('b ближе')

        else

            writeln('они на одинковом расстоянии');

readln;

end.