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

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

program ss;
 var a : array[1..15] of real;
 i,s,k : integer;
 r,m : real;
 begin
 for i:=1 to 15 do
 begin
 a[i]:=random(100)+random();
 write(a[i],' ');
 end;
 writeln;
 for i:=1 to 15 do
 begin
 s:=round(a[i]);
 if a[i]>s then r:=a[i]-s else r:=s-a[i];
 if r<0.5 then a[i]:=r else a[i]:=1-r;
 write(a[i],' ');
 end;
 writeln;
 m:=a[1]; k:=1;
 for i:=2 to 15 do
 if a[i]<m then
 begin
 m:=a[i];
 k:=i;
 end;
 writeln(k);
 end.

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


СОХРАНИТЬ ССЫЛКУ