Найти число, которое ближе всего к целому - Pascal ABC
Формулировка задачи:
Добрый день!
Помогите, пожалуйста, решить задачу
Только каким-нибудь примитивным способом
Дан массив действительных чисел длиной n. Найти число, которое ближе всего к целому
Решение задачи: «Найти число, которое ближе всего к целому»
textual
Листинг программы
const n=16;
var a:array[1..n] of real;
i:integer;
mn,imn:real;
begin
randomize;
writeln('Массив');
for i:=1 to n do
begin
a[i]:=-5+10*random;
write(a[i]:8:4);
if i=n div 2 then writeln;
end;
writeln;
mn:=0;
for i:=1 to n do
if abs(abs(frac(a[i]))-0.5)>mn then
begin
mn:=abs(abs(frac(a[i]))-0.5);
imn:=a[i];
end;
write('Наиболее блзкое к целому ',imn:0:4)
end.