Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
olgagolova
04.09.2020 16:45 •
Информатика
Задан массив, состоящий из 33 элементов, являющихся случайными числами из диапазона (-20, 60). вывести на экран числа, большие 40, а также их сумму. на языке паскаль. 15б
Ответ:
Деткатыпростокласс
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 оценок)
Популярные вопросы: Информатика
fraumiss93
21.02.2023 04:41
Один з видов персональных компютеров...
lera0900
21.02.2023 04:41
Составьте программу которая определяет большая и маленькая буква алфавита введена с клавиатуры,...
kadalsu4
10.03.2020 23:54
Написать программу в паскале.вычислите объём параллелипипеда со сторонами a, b , c...
kristina150017584969
24.06.2022 03:59
Объясните : с клавиатуры вводится трёхзначное число. написать программу, которая составляет новое трёхзначное число, в котором цифры десятков и сотен поменяли местами....
irunahruha
16.11.2022 20:19
Для каких целей используется мультимедийный проектор?...
TheLoneRider
22.04.2022 00:00
Ms excel протабулировать эту функцию...
Мухлисуллин
02.09.2020 12:55
Өлеңдегі замана келбеті сипаттап жазыңыз...
Ёкабоня6
29.09.2022 06:38
Какую сказку А.С.Пушкина напомнила вам сказка В.А.Жуковского....
Асечка05
29.09.2022 06:38
ВЫПОЛНИ ДЕЙСТВИЯ: (3/4+1/20)*1/2 = СКРОЧНО НУЖНО ДАМ 11Б...
вика45890
29.09.2022 06:38
Сирек, жиі создерине 5 мақал мәтел Айтыныздаршыы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(33,-20,60); a.Println;
a.Where(t->t>40).Println.Sum.Println
end.