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

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.

Универсальным устройством ввода информации является клавиатура. клавиатура позволяет вводить числовую и текстовую информацию. для оптического ввода в компьютер и преобразования в компьютерную форму изображений (фотографий, рисунков, слайдов), а также текстовых документов используется сканер. для ввода графической информации и для работы с графическим интерфейсом программ используются координатные устройства ввода информации: манипуляторы (мышь, трекбол звуковая карта, цифровые камеры, тв тюнер. я бы так ответила)

Водном месте, видимо, опечатка (№ 21-25 два раза, а № 26-30 нет). const n=40; var x: array[1..100] of real; i: integer;   begin randomize; for i: =1 to 5 do begin   write('x[',i,']=');   readln(x[i]);   end; for i: =6 to 10 do x[i]: =random(11); for i: =11 to 15 do x[i]: =random(11)-10; for i: =16 to 20 do x[i]: =random(31)+20; for i: =21 to 25 do x[i]: =random(31)-50; for i: =31 to 40 do x[i]: =i*i; for i: =30 downto 26 do x[i]: =x[i+1]+x[i+2]; for i: =1 to n do write(x[i],' '); writeln; end. пример: x[1]=32 x[2]=49 x[3]=81 x[4]=27 x[5]=50 32 49 81 27 50 3 7 7 6 5 -9 -4 -3 -3 0 23 32 40 24 36 -43 -26 -34 -44 -22 12808 7877 4931 2946 1985 961 1024 1089 1156 1225 1296 1369 1444 1521 1600