Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
alena667
03.08.2021 20:41 •
Информатика
Синформатикой! написать программу в паскале заполнить массив 100 произвольных чисел.определить сумму чисел которая > 20 но < 80
Ответ:
Rabika2018
07.10.2020 21:38
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(100,-99,99);
var r:=mas.Where(t->(t>20) and (t<80));
Writeln('Summa=',r.Sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
freedomman87
27.02.2021 03:25
нужно составить программу в паскале Заранее Задание: Найдите среднее арифметическое элементов массива, заполненного случайными числами от 6 до 21. Размерность массива вводится...
aantonenko240
08.07.2021 04:12
Как 134,5(10) перевести в двоичную систему счисления, а затем в шеснадцатиричную?...
alyonaSidorenk
03.07.2022 06:14
Информатика! Это не чёрный и не белый! Варианты ответа: розовый, серый, желтый, оранжевый...
polyakkate
31.01.2020 20:02
С какими характеристиками лучше выбрать компутер(Чтобы было все на ультрах и не оагало)...
kostf2003
02.06.2023 13:29
1/8 кб- ___бит. 10 мб- ___байт....
zvezda026
04.07.2020 07:34
8. Какое из чисел: 1010 2 , 1 7 , 1001 2 наибольшее? А) 1 7 В) 1010 2 С) 1001 2...
aarmen
02.12.2020 22:41
с тестом по инфо 18 методическое обеспечение...
Винасуэлла
17.07.2020 19:52
Найдите площадь фигуры, ограниченной линиями = 2 −x^2, = 0....
hilka2
17.07.2020 19:52
Bбольше или равно 83685+(20216-537999: 1507)•80-502•968 если ответите то огромное...
kmatachp01gzm
17.07.2020 19:52
Что сделал ватутин коротко 8 предложений...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(100,-99,99);
var r:=mas.Where(t->(t>20) and (t<80));
Writeln('Summa=',r.Sum);
end.