Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
VladiusFirst
11.02.2022 01:46 •
Информатика
Дано 80 вещественных чисел. найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу. решить
Показать ответ
Ответ:
анечкалис
08.07.2020 01:57
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(a[n]))) then
n := i;
writeln();
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ИбрагимЛе
24.01.2020 09:06
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. программа получает на вход количество чисел в последовательности, а...
nshambulina
24.01.2020 09:06
1. составить программу вычисления 2-ой, 3-ей и 4-ой степени числа a и возвращения этих степеней в переменных b, c, d. разработать процедуру, для которой a — это входной параметр;...
SerenaWilliamsisa
30.12.2020 20:49
расшифруйте фамилию известного ученого именем которого был назван язык программирования, (1.3) для раскодировки слова решите примеры, а затем используйте фрагмент дополнительноф...
ivan080206
11.04.2023 00:12
3примера различных типов алгоритмов...
лена062
28.06.2021 05:08
Здравствуйте, сломался ноутбук. Сколько будет стоить пере нужна ли она? Места не было и нажала «сжать диск» , на следующий день не могла зайти...
мишка4543
13.08.2022 10:20
При каком значении переменной а переменная s=3? readIng(a); s:=0; while a 0 do begin a:=a-1; s:=s+1; end;...
Luba0111
26.01.2022 00:12
Определить степень окисления марганца в соединении перманганата калия (K+1MnO4-2)....
lkivaka
30.09.2021 09:31
УМОЛЯЮ Определите значение придаточных предложений (напишите над союзами/с.сл. тип придаточн.) 2)Обозначьте в тексте обособленные определения (___) и деепричастный оборот(___)....
Naruto1111111111
02.09.2021 23:51
Напиши название самого маленького океана на Земле...
Messidarcelona05
10.02.2020 00:56
11).в каком ряду буква и пишется в обоих словах?А) стаканч..к, кирпич..кВ) листоч..к, камеш..кC) подароч...к, кружоч...кD) карандаш...к, бараш...к...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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(a[n]))) then
n := i;
writeln();
writeln(n);
end.