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

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

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;

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