Помогите с Массивом в Паскале Опции

[Ganz]

Дан вещественный массив x(n). Найти элементы массива, значение которого наиболее близко к какому-нибудь целому числу.

В данной программе надо чтобы при запуске выводился на экран начальный массив из вещественных чисел(отрицательных и положительных) и после от туда выбирались элементы наиболее близкие какому нибудь целому числу .

Помогите плиз

Сообщение отредактировано: Ganz - 15.06.2008 15:55

[Ganz]

смысл в том что у меня на экран должен выводиться первоначальный массив из вещественых чисел в том числе и отрицательные ,а из них выбирались приблеженно целые

Машина случайным образом сама заполняет массив (причем заполняет массив вещественными числами как отрицательными так и положительными )

через Random

Добавлено через 11 мин.
Попробывал сделать так

Uses crt;
const
n=10;
var
x: array [1..n] of real;
i,k : integer;
min,res : real;
begin
clrscr;
randomize;
for i:=1 to n do
begin
x[i]:=random(999);
end;
min:=1;
for i:=1 to n do
begin
if frac(x[i]) >=0.5 then res:=frac(x[i])
else res:=1-(1-frac(x[i]));
if res> min then
begin
min:=res;
k:=i;
end;
end;
for i:=1 to n do
begin
write (x[i]:0:1 ,' ');
end;
write('Rezultat: ',x[k]:0:3);
readln;
end. 

Результат получается таков ,что выводять целые числа =(( ,а нужны вещественые (положительные и отрицательные) .

2 695 562 910 134 940 115 370 251 261 Rezultat: 2.000

Сообщение отредактировано: Ganz - 16.06.2008 16:55