Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Vikulya0303
29.07.2020 23:25 •
Информатика
Задан массив, состоящий из 33 элементов, являющихся случайными числами из диапазона (-20, 60). вывести на экран числа, большие 40, а также их сумму. на языке паскаль. 15б
Показать ответ
Ответ:
EmilN304
08.10.2020 20:03
PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(33,-20,60); a.Println;
a.Where(t->t>40).Println.Sum.Println
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NastysikRicci
29.06.2020 06:31
Визнач правильну послідовність дій які слід виконувати щоб розмістити текст уздовж лінії як на зназку . запиши відповідні номери . постав позначку біля дії яку не потрібно виконувати...
Malina235
01.05.2023 13:28
Дано: • N – число элементов, находящихся на испытании; • t- время исправной работы і-го элемента, i = 1, 2,..., IT, п– число отказавших элементов за время испытания t. а Определить...
povorovak
14.01.2022 02:04
Выбрать правильное определение «Компьютерного вируса» Это система хранения файлов и организации каталоговДелает истинное высказывание ложным и наоборот, ложное- истинным.Является...
ротилуся1
20.09.2021 08:54
Музыкальный фрагмент был записан в формате стерео (двухканальная запись), оцифрован и сохранён в виде файла без использования сжатия данных. размер полученного файла – 30 мбайт....
rostislavcapsu
20.09.2021 08:54
Каково наименьшее натуральное число х, при котором истинно высказывание (х ⋅ (х - 1) 99) → ((х - 1) ⋅ (х - 1) 80)?...
CURTER
02.02.2021 14:21
Файл размером 100 кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через другое...
Nastasia13z
29.07.2021 10:58
20 маса вуглецю обємом 1 літра становить 0,715 г . обчисліть відносну молекулярну масу вуглеводню та напишіть його формулу...
nubjoper
28.01.2021 22:02
Почему шмакова и поповзгая о невиновности лены,молчали...
zoziev2014
15.05.2022 17:03
Твір на тему як ти уявляєш марусю чурай ...
Matushabos
28.02.2020 21:01
Выписать, 3 предложения с причастны оборотом из бедной лизы ! ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(33,-20,60); a.Println;
a.Where(t->t>40).Println.Sum.Println
end.