Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
jansayabektasova
09.05.2022 17:01 •
Информатика
Задан массив, состоящий из 15 элементов вещественного типа. опреде- лить количество элементов, значения которых больше первого элемента.
Показать ответ
Ответ:
2005161718
06.10.2020 13:38
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandomReal(15,-10,10); a.Println;
Writeln('Элементов, больших первого, ',
a.Where(x->x>a[0]).Count)
end.
Пример
1.32138581542363 -7.42206571503639 -8.75516477914302 6.17963798166236 -4.88329186797295 6.02313704603498 -5.68947898023272 -4.43705633023617 2.51164194779081 -3.27493339463833 8.22698325767507 -7.95714398750902 4.07602354608291 -2.3214872238792 4.90172023647545
Элементов, больших первого, 6
0,0
(0 оценок)
Популярные вопросы: Информатика
вета18С
08.08.2020 06:43
14. M=36 N=54; M=8 N=8; M=13 N=19 Составить трассировочные таблицы для трех тестов,...
jskzva1
07.06.2021 17:43
Запишите на языке Паскаль выражения: I 1- IXII...
12R34O56M78A
08.09.2021 20:53
БОЛЬШЕ НЕТУ БАЛОВ Чертежник в точке В. Что нужно написать вместо a и b в команде сместиться на вектор (a, b) , чтобы он попал в точку Б? Шаг сетки равен 1.aВведите целое...
bogahewa78
13.05.2020 08:04
1. На базе первой Веб-страницы создайте текстовый документ программе HEFS, имеющий следующее оформление:Устройства компьютера(заголовок 1)Внешние(заголовок 2, курсив)Принтер,сканер,...
PuvMan
09.05.2022 07:50
1. Зачем нужно программирование 2. Зачем в компьютере нужны 8-я и 16я системы счисления 3. Что такое объектно-ориентированное программирование...
akon1708
05.10.2020 23:41
Дана последовательность операторов: a:=1 ; b:=1 ; repeat a:=a+1 ; b:=b*2 ; until b 8 ; s:=a+b Сколько раз будет повторён цикл и каким будут значения переменных a b s после...
Mirajanesan
13.01.2021 03:32
Які команди в Scratch можна використовувати для реалізації циклів?...
dilmurod9292
10.10.2022 21:46
Какой формулой связаны количество цветов в палитре и количество битов для кодировки одного пикселя? Что означают переменные, входящие в формулу?...
alese4kas94p0cen0
25.08.2020 14:52
Напишите программу, которая на вход получает с клавиатуры три величины – длину, ширину и высоту коробки, вычисляет ее объем и результат выводит на экран....
sashunyakotova
07.05.2023 06:15
решить информатику. Задания на фото...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandomReal(15,-10,10); a.Println;
Writeln('Элементов, больших первого, ',
a.Where(x->x>a[0]).Count)
end.
Пример
1.32138581542363 -7.42206571503639 -8.75516477914302 6.17963798166236 -4.88329186797295 6.02313704603498 -5.68947898023272 -4.43705633023617 2.51164194779081 -3.27493339463833 8.22698325767507 -7.95714398750902 4.07602354608291 -2.3214872238792 4.90172023647545
Элементов, больших первого, 6