Массив

[dimka660i]

ну да все так) вот что выдает:

[Sparky]

а вы в delphi делаете?

[dimka660i]

Ну да!! а вы что подумали?

[pupik100]

обязательно в делфи?

[Sparky]

ну есть куча других компиляторов. просто зачем delphi когда решаешь такие задачи

[dimka660i]

Sparky
У нас в универе только делфи 7 стоит, так что на другом не написать))

[Sparky]

Ну вот в делфи только в 2007, 7 у меня нет, но должно пойти:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 var
   i,indeks:integer;
   M:array[1..12] of real;
   min:real;
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

begin
     for i:=1 to 12 do
         read(m[i]);
     min:=abs(m[1]-3.1416);
     indeks:=1;
     for i:=2 to 12 do
     begin
          if abs(m[i]-3.1416)<min then
          begin
               min:=abs(m[i]-3.1416);
               indeks:=i;
          end;
     end;
     write(indeks);
     readln;
  end;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.