Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
evtpasha2017
21.05.2023 04:53 •
Информатика
Дано 80 вещественных чисел. найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу. решить
Показать ответ
Ответ:
snoxj2003
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 оценок)
Популярные вопросы: Информатика
azik55
22.12.2020 00:47
подготовить ответ к зачету на вопрос Хранение информации и ее носители по предмету Информационные технологии...
Sheva031
28.04.2020 16:58
Какое минимальное основание имеет система, если в ней записаны числа 124, 354, 4215...
vasta5555555
08.07.2022 19:25
Составить программу для проверки утверждения: «Результатами вычислений по формуле х2 + х + 17 при 0 больше или равно х больше или равно 15 являются простые числа». Все результаты...
ilyxa24
14.11.2021 23:00
Определи правильный ответ. Ира, работая над проектом, создала на флешке следующие файлы: C:\Pусский\Задания\Карточка.bmp C:\Биология\Бактерии\Палочковидные.doc C:\Музыка\Копозиторы\Моцарт.bmp...
pro63
14.05.2023 20:10
Написать программу на языке си: вычислить сумму элементов матрицы, которые расположены выше главной диагонали. n = 5, m = 5...
olmilevskaya1
14.05.2023 20:10
2) даны вершины треугольника а(-1; 3), в(2; b 1), c(-4; -2). составить уравнения высоты и медианы, проведенной из а. найти площадь треугольника авс....
Slash213
11.12.2021 06:04
Написать эссе по теме «либо сила, либо рубль – иного выбора в не было и нет от века, от до наших дней» (н.шмелёв)...
Суховруктик
12.12.2020 12:06
Что находится выше горы, но не животное? ...
Стас666228
02.10.2021 10:52
Помните ! , , , и соедините вероятность возникновения риска с наиболее приемлемой стратегией . установите соответствие между понятием и определением: к каждой позиции, данной...
solanastas123
20.11.2022 07:39
Укажите один правильный ответ - гидроксид лития проявлять свойста а) с кислотами как основание б) со щелочами как кислота 1)оба суждения верны 2)верно только первое суждение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.