Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DarkWolfe2017
14.12.2020 14:20 •
Информатика
Найдите количество элементов массива, которые отличны от наибольшего элемента не более чем на 10%.
Показать ответ
Ответ:
Даун766
06.10.2020 04:17
// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var max:=a.Max;
Writeln('k=',a.Where(x->x>=0.9*max).Count)
end.
Пример
n= 20
9 1 -9 -8 -4 3 -5 -8 10 7 -9 1 -5 -4 0 -4 9 6 9 -8
k=4
0,0
(0 оценок)
Популярные вопросы: Информатика
ярослав6рюховецкий
22.09.2022 23:49
Вкажіть значення виразу =min(12 25)+max(12 18)...
egor570
04.06.2023 14:57
Что означает символ @ в xml? Пример использования:android:theme= @style/AppTheme.Dark android:icon= @mipmap/ic_logo_square P.S. Хочу создать модификацию для Discord,...
trollotrollovit
05.05.2022 15:12
Напишите программу выводящую на экран все четные трехзначные числа в python...
evzhenko99
10.01.2021 10:33
Вячейке d5 электронной таблицы записана формула =$а8*е24-f$4. какие формулы будут получены при ее копировании в ячейки в f12, с12, c6?...
Andrebro9
26.12.2021 16:39
Каждый сотрудник предприятия получает электронный пропуск, на котором записаны личный код сотрудника, код подразделения и некоторая дополнительная информация. личный...
nadir7207
07.01.2023 21:30
Раскрой понятия культ личности. В чём выражался культ личности Сталина? Как представление о величии вождя внедрялось в сознание народа?...
4535константин20051
29.09.2020 15:08
Емкость конденсатора тем больше, чем: меньше напряжение между обкладками конденсатора больше заряд на обкладках конденсатора больше площадь обкладок конденсатора...
Sandrohka
19.11.2020 15:09
Плотники строят дома. Грузчики и носильщики доставляют багаж на пароход. Шофер заводит мотор. Рыбаки ловят рыбу. Металл обрабатывают фрезеровщики. Доярка доит коров....
Matannoob
30.07.2021 15:29
рассмотри чертёж и выбери верные высказывания...
Lik20372
01.07.2021 04:55
Какие постоянные ветры оказывают существенное влияние на формирование климата полуострова Юкатан?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var max:=a.Max;
Writeln('k=',a.Where(x->x>=0.9*max).Count)
end.
Пример
n= 20
9 1 -9 -8 -4 3 -5 -8 10 7 -9 1 -5 -4 0 -4 9 6 9 -8
k=4