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

[ZX Spectrum-128]

randomize;
нужно поставить перед вызовом random

[Stilet]

всё ровно ряд одинаковый выводит!

Правильно. Так в программе прописано - числа те же самые использовать.

[AZelensky]

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

randomize;
нужно поставить перед вызовом random

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

У меня вот так получается(всё время по разному). А нужно по условию получить порядковый номер ОДНОГО ИЗ НИХ, которое ближе всего к заданному
числу

[AZelensky]

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

Правильно. Так в программе прописано - числа те же самые использовать.

А как мне добиться выполнения вот этого задания?

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


А число я должен ввести и мне выдало порядковый номер ближнего к нему

[ZX Spectrum-128]

Ээээээ, что-то мне уже нехорошо
Покажите еще раз вашу программу

По вашей программе, индекс выводится после нажатия enter
Readln; поставьте перед end.
Точнее, переместите его.

[AZelensky]

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

Ээээээ, что-то мне уже нехорошо
Покажите еще раз вашу программу

По вашей программе, индекс выводится после нажатия enter
Readln; поставьте перед end.

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

Вот мой код:

USES CRT;
Var
a: array [1..10] of REAL;
n, min: REAL;
i, 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]

Подправил

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

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

  randomize;
  for i:=1 to 10 do begin
    a[i]:=random(103)/7;
    write(a[i]:6:2);
  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);
  readln;
END.

Результат, честно выводит 4

[AZelensky]

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

Подправил

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

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

  randomize;
  for i:=1 to 10 do begin
    a[i]:=random(103)/7;
    write(a[i]:6:2);
  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);
  readln;
END.

Результат, честно выводит 4

Кроме 4 может вывести и вот что

[ZX Spectrum-128]

Так это и верно! 2.71 ближайшее число к 2.4. А его индекс 6!

[AZelensky]

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

Так это и верно! 2.71 ближайшее число к 2.4. А его индекс 6!

И 8 и 2 может быть индекс?