Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
fufujyrfjyrfyjrff
01.05.2021 20:12 •
Информатика
Программа на паскаль найти количество элементов массива целых чисел c(14), больших куба второго элемента массива этого массива. если таких элементов нет выдать сообщение- поиск неудачен
Ответ:
bogdansudak2006
07.10.2020 17:58
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
гарристайлсс
04.01.2023 18:28
решить информатику PaskalABC...
зика356
08.01.2020 23:34
Как сделать пятиугольник в python...
бооой
23.07.2021 15:29
Запишите маску, которая позволяет выделить все файлы с расширением, состоящим из 4 букв, которое начинается на букву «а», имена которых заканчиваются на букву «t»....
majten
06.03.2021 03:47
Соха -орудие для вспашки земли. кучер -слуга, работник, который правит лошадьми в экипаже. урядник- нижний чин уездной полиции в царской россии. помещик- землевладелец. лакей-...
denismelnik04
06.03.2021 03:47
На соревнавания по баскетболу пришло a девочек,а мальчиков на b больше,чем девочек. для игры они разбились по 5 человек.сколько команд получилось...
NastasS4
06.03.2021 03:47
Сформулируйте вывод о причинах разнообразия равнин. не копировать,...
Alinatkd
06.03.2021 03:47
Что мешает развитию хозяйства в тибете?...
9Mesut8
06.03.2021 03:47
Какие системы отсчета называются инерциальными?...
ivahinzeha475
06.03.2021 03:47
ответьте на вопросы по сказкам бажова а какой заказ выполнял данилушка вместо прокопьевича в сказе каменный цветок б что можно найти там где пляшет огневушка-поскакушка в...
malinovaya14
06.03.2021 03:47
Чебурашка записал словами все чётные трёхзначные числа («сто, сто два, сто четыре, . . , девятьсот девяносто восемь»), а незнайка — все нечётные трёхзначные числа. кто из...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.