Найти порядковый номер того из чисел, которое наиболее близко к какому-нибудь целому числу - Turbo Pascal (33674)

Узнай цену своей работы

Формулировка задачи:

Решение задачи: «Найти порядковый номер того из чисел, которое наиболее близко к какому-нибудь целому числу»

textual
Листинг программы
program ss;
uses crt;
var a : array[1..15] of real;
    i,s,k : integer;
    r,m : real;
begin
clrscr;
for i:=1 to 15 do
 begin
  a[i]:=random(100)+random();
  writeln(i:2,'=',a[i]:8:3);
 end;
writeln;
m:=0; {максимальное удаление значения дробной части от числа 0.5}
k:=0; {номер элемента}
for i:=1 to 15 do
 begin
  if abs(0.5-frac(a[i]))>m then
   begin
    m:=abs(0.5-frac(a[i]));
    k:=i
   end;
  end;
writeln('номер=',k);
readln
end.

Оцени полезность:

11   голосов , оценка 3.545 из 5
Похожие ответы