Дано 80 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к...

Question

Дано 80 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу.
Помогите решить пожалуйста

Answer 1

var
  a: array [1..80] of real;
  n: byte := 1;

begin
  for i: integer := 1 to 80 do
  begin
    a[i] := trunc(random() * 100) / 100;
    write(a[i], ' ');
  end;
  for i: integer := 1 to 80 do
    if (abs(a[i] - round(a[i])) < abs(a[n] - round(a[n]))) then
      n := i;
  writeln();
  writeln(n);
end.

Comments

надо на языке С

---

Ну так и говорили бы сразу ._. И увы, я из Си-шных языков только C# знаю, что уж точно не то. Суть не меняется: пройтись по массиву, сравнивая погрешность