tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано 80 вещественных чисел.
Дано 80 вещественных чисел. найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу. решить
877171402501
3 09.06.2019 05:30
11
Ответы
bykvav
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Kember
19.06.2019 15:30
:( дан двумерный массив. все его элементы разделить на первый элемент и вывести на экран полученный массив....
12poli
19.06.2019 15:40
Даны три целых числа. найти количество положительных и количество отрицательных чисел в исходном наборе....
vavelichTabak
16.07.2019 19:40
Вася решил записать пароль от своей почты, чтобы не забыть его. он когда-то читал, что пароли нужно обязательно шифровать, чтобы никто не смог войти в его почту....
Мейвис00
19.06.2019 00:00
Собери из суждений правильное умозаключение n1- алёнка сладкая. n2-все конфеты сладкие. n3- алёнка -конфета...
8951992masha
19.06.2019 00:00
Дано целое число. если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. вывести полученное...
ПеЧеНьКаСМоЛоЧкОм
28.09.2019 14:20
Разработать алгоритм в программе грис для написания слова «баобаб» по...
Ashmalikova
28.09.2019 14:20
Что такое ключевое поле? как установить несколько ключевых полей?...
микс111111
27.06.2019 22:10
Решите примеры: 768: 24 столбиком 4088: 73 столбиком 2688: 32 столбиком 3392: 53 столбиком а эти нужно решить по действиям. под каждым примером написать действие...
катя5069
27.06.2019 22:10
2. местное является: а) ячейкой гражданского общества б) разновидностью государственных органов...
blablabla114
27.06.2019 22:10
Составь уравнение: 1) если задуманное число уменьшить на 149 360 то получится частное чисел 412 и 4 найди задуманное число 2) неизвестное число увеличили в 16 раз...
Популярные вопросы
Задача 1. Определить объем памяти (в Мб) для хранения цифрового...
3
Какую работу необходимо произвести, чтобы поднять с пола коробку...
2
Специальные прыжковые и беговые упражнения.Составить комплекс...
2
закодируйте с кодировочной таблицы ascii закодируйте canon...
2
ПО ФИЗИКЕ 8КЛАСС ВАРИАНТ 1 ...
2
Очень нужна У гороха жёлтая окраска семян A доминирует над зелёной...
1
Перепиши предложения, расставляя запятые Тебе Москва пережитое...
1
Литература 4 класс. Что можно посоветовать герою гектору сервадаку...
1
Составить текст из 60 слов используя причастный, Деепричастный,...
2
Please help me! I ll be happy. ...
2
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.