Дано 80 вещественных чисел. найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу. решить

270

494

Посмотреть ответы 2

Ответы на вопрос:

kola3344

Информатика

4,8(73 оценок)

Var a: array [1..80] of real; n: byte : = 1; begin for i: integer : = 1 to 80 do begin a[i] : = trunc(random() * 100) / 100; write(a[i], ' '); end; for i: integer : = 1 to 80 do if (abs(a[i] - round(a[i])) < abs(a[n] - round( then n : = i; writeln(); writeln(n); end.