Найти порядковый номер того из чисел, которое наиболее близко к какому-нибудь целому числу - 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.