(Паскаль)  
Дан массив вещественных чисел. Вывести значение, ближайшее к числу Пи.  

begin  randomize;  for i:=1 to j do  begin    a[i]:=round(random()*1000)/100;    write(a[i],' ');  end;    writeln;end;var a: arr;    i,m,ind: integer;    delta,nom: real;begin   write('n = ');  readln(m);   InArray(a,m);   delta:=abs(pi-a[1]);   ind:=1;

Спасибо!

   delta:=abs(pi-a[1]);   ind:=1;   for i:=2 to m do   if abs(pi-a[i])<delta then   begin     delta:=abs(pi-a[i]);     nom:=a[i];        ind:=i;   end;     write('наиболее близкий элемент к pi:  ',nom);   writeln('    индекс:  ',ind);end.Файл не прикрепился, поэтому двумя частями, все не входит в один комментарий

const n=100;type arr = array[1..n] of real;{формирование массива}procedure InArray(var a: arr; j: integer);var i: integer;begin  randomize;  for i:=1 to j do  begin    a[i]:=round(random()*1000)/100;    write(a[i],' ');  end;    writeln;end;var a: arr;    i,m,ind: integer;    delta,nom: real;begin   write('n = ');  readln(m);   InArray(a,m);   delta:=abs(pi-a[1]);   ind:=1;

Первая половина не полностью записана была.

Решение в прикрепленном файле.