Массив

[dimka660i]

Имеется задача:
7. В массиве М(12) найти номер элемента, наименее отличающегося от числа 3,1416.
Я вот тут накидал код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;
  type mas1=array [1..12] of integer;
  var B,n: mas1;
  I, m: integer;

begin
wriyeln ('m');
readln(m);
for I:= 1 to m do begin
readln (B[I]);
end;
  ДАЛЕЕ, Я ТАК ПОНИМАЮ, НАДО ЧТО ТО НАПИСАТЬ,
  А ВОТ ЧТО НЕЗНАЮ...)

  { TODO -oUser -cConsole Main : Insert code here }
end.

Мне нужно для Console Application
Подскажите пожалуйста!!)

[Грымзик]

я могу в синтаксисе ошибиться, и не знаю есть ли
функция abs(), но смысл понятен

program Project2
var i, n, indeks, min:integer; M: array[1..12] of integer;
begin;
min:=10000;
readln(n);
for i:=1 to n do begin
	readln(M[i]);
	if abs(M[i]-3.1416)<min then
	begin
		indeks:=i;
		min:=abs(M[i]-3.1416);
	end;
end;
writeln(indeks);
end.

[dimka660i]

Грымзик
Спасиб!)
А есть еще какие нибудь варианты? А ты мы такого не проходили(

[Sparky]

а почему у вас integer?

[Грымзик]

а почему у вас integer?

Ну да, ошибочка тут, конечно вещественный тип должен быть.

А ты мы такого не проходили(

А чего тут проходить, те же циклы, присваивания переменных,
и элементарная идея, к вам точно никто придираться не будет.
И по-моему, по-другому невозможно.

[dimka660i]

Грымзик
ваш код почему то нехочет работать((

[Sparky]

Попробуй так:

program Project2;
var
   i,indeks:integer;
   M:array[1..12] of real;
   min:real;
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);
end.

[dimka660i]

Sparky
тоже нехочет( ошибку кидает Runtime что то там.. дурацкие массивы блин...(

[Sparky]

хм у меня идет

[Sparky]

точно все так вставили?