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

[ZX Spectrum-128]

Конечно! У вас каждый раз генерируется новая последовательность чисел. И программа находит индекс элемента массива, ближайшего к заданному числу.
Посмотрите сами внимательно.

[AZelensky]

Скажите, пожалуйста, почему тут min взяли 1000?

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

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


  writeln('Enter values: ');
For i:= 1 to 3 Do begin
    write('Element[', i, '] = ');
    READLN(a[i]);
end;


  min := 1000;
  for i:=1 to 3 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]

Не знаю, обычно пишут так:

min:=a[1];
for i:=2 to n do 
  ...

[AZelensky]

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

Не знаю, обычно пишут так:

min:=a[1];
for i:=2 to n do 
  ...

Спасибо

[AZelensky]

USES CRT;
CONST
MaxElMass = 100;
Var
Mass: array [1..MaxElMass] of REAL;
number, min: REAL;
n: INTEGER;
i: byte;
Begin
TextBackGround(White);
TextColor(Black);
CLRSCR;
write('Enter number: '); READ(number);
write('Enter max element: '); READ(n);
writeln('Enter values: ');
For i:= 1 to n Do begin
    write('Element[', i, '] = ');
    READLN(Mass[i]);
end;
writeln('The resulting array: ');
write('Array: [');
For i:= 1 to n Do begin
    write(',', Mass[i]:0:0);
end;
write(']');
ReadLN;
TextColor(20);
writeln('');
writeln('Press "ENTER" to continue...');
ReadLN;
TextColor(Black);
For i:= 1 to n Do
If ABS(number - Mass[i]) < Mass[i] then
   min:= ABS(number - Mass[i]);
writeln('The smille number = ', i);
ReadLN;
END.

Что тут не так?

[Serge_Bliznykov]

var i, minI : integer; {хотя можно и byte}
begin
....
  minI := 1;  {считаем, что 1й элемент ближе всего к заданному числу}
  For i:= 2 to n Do
     If ABS(number - Mass[i]) < ABS(Mass[minI] - Mass[i]) then
              minI := i;
writeln('The near element  index = ', minI);

[AZelensky]

А вот так можно?

USES CRT;
CONST
MaxElMass = 30;
Var
Mass: array [1..MaxElMass] of REAL;
number, min: REAL;
n: INTEGER;
i: byte;
Begin
TextBackGround(White);
TextColor(Black);
CLRSCR;
write('Enter number: '); READ(number);
write('Enter max element: '); READ(n);
writeln('Enter values: ');
For i:= 1 to n Do begin
    write('Element[', i, '] = ');
    READLN(Mass[i]);
end;
writeln('The resulting array: ');
write('Array: [');
For i:= 1 to n Do begin
    write(',', Mass[i]:0:0);
end;
write(']');
ReadLN;
TextColor(20);
writeln('');
writeln('Press "ENTER" to continue...');
ReadLN;
TextColor(Black);
min:= Mass[1];
For i:= 1 to n Do begin
If ABS(number - Mass[i]) < min then begin
   min:= ABS(number - Mass[i]);
writeln('The smille number = ', i);
end;
end;
ReadLN;
END.

[Serge_Bliznykov]

нет. так нельзя.

For i:= 1 to n Do begin
If ABS(number - Mass[i]) < min then begin
   min:= ABS(number - Mass[i]);
   writeln('The smille number = ', i);

в логике у Вас ошибка.
у вас отображение результата будет столько раз, сколько раз будет уточняться min
в худшем случае - n-1 раз!


Лучше объясните, чем Вас мой вариант не устроил?!!

[AZelensky]

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

нет. так нельзя.

в логике у Вас ошибка.
у вас отображение результата будет столько раз, сколько раз будет уточняться min
в худшем случае - n-1 раз!


Лучше объясните, чем Вас мой вариант не устроил?!!

А вот чем:


Если посчитать в ручную, то получается 2, а не 3

[ZX Spectrum-128]

Вариант Сергея вовсе не этот. Это уж вы сами чего-то наструячили. А его вариант работает.