Задана последовательность из N вещественных чисел...

[AZelensky]

Задана последовательность из N вещественных чисел. Определить
порядковый номер того из них, которое ближе всего к заданному
числу

Массив я задал, а дальше не понимаю как

[ZX Spectrum-128]

Найти минимальное из разниц между элементами массива и заданным числом (по модулю)
Числа в массиве
1 2 3 заданное 2.4
Вычитаете |2.4-1|=1.4
|2.4-2|=0.4
|2.4-3|=0.6
Минимальное 0.4, то есть 2 и будет ближним

[Stilet]

if abs(a[i]-Zadannoe)<a[min] then min:=i;

Где:
i:integer - счетчик цикла
Zadannoe - ну думаю понятно
min:integer - номер наиближнего на момент итерации цикла и позтом в массиве

Идея понятна?

[AZelensky]

Сообщение от Stilet

if abs(a[i]-Zadannoe)<a[min] then min:=i;

Где:
i:integer - счетчик цикла
Zadannoe - ну думаю понятно
min:integer - номер наиближнего на момент итерации цикла и позтом в массиве

Идея понятна?

Правильно?

USES CRT;
Var
a: array [1..3] of REAL;
n, min: REAL;
i: byte;
ind: byte;
Begin
CLRSCR;

 write('N = '); readln(n);


  for i:=1 to 10 do begin
    a[i]:=random(103)/7;
    write(a[i]:6:3);
  end;



  min := 1000;
  for i:=1 to 10 do begin

    if abs(a[i]-n) < min then begin

        min :=  abs(a[i]-n);
        ind := i;

    end;
  end;

  writeln;
  writeLN(ind);
END.

[ZX Spectrum-128]

Массив описан как array [1..3] , а в цикле пытаетесь работать с ним до 10.

[Stilet]

Запусти программу - что выдаст?

[AZelensky]

Сообщение от Stilet

Запусти программу - что выдаст?

Вот, что. ПРавильно?

[AZelensky]

Сообщение от ZX Spectrum-128

Массив описан как array [1..3] , а в цикле пытаетесь работать с ним до 10.

А так правильно?

USES CRT;
Var
a: array [1..10] of REAL;
n, min: REAL;
i: byte;
ind: byte;
Begin
CLRSCR;

 write('N = '); readln(n);


  for i:=1 to 10 do begin
    a[i]:=random(103)/7;
    write(a[i]:6:3);
  end;



  min := 1000;
  for i:=1 to 10 do begin

    if abs(a[i]-n) < min then begin

        min :=  abs(a[i]-n);
        ind := i;

    end;
  end;
ReadLN;
  writeln;
  writeLN(ind);
END.

[ZX Spectrum-128]

Это был какой-то неправильный паскаль

Теперь согласен. Выводит 9, что есть хорошо

[AZelensky]

Сообщение от ZX Spectrum-128

Теперь согласен. Выводит 9, что есть хорошо

Т.е. у меня на скрине всё правильно работает? Просто при вводе любых чисел всё ровно ряд одинаковый выводит!