Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
PrinceGangsTa
14.11.2022 13:32 •
Информатика
Синформатикой! написать программу в паскале заполнить массив 100 произвольных чисел.определить сумму чисел которая > 20 но < 80
Ответ:
sashapeterov85
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 оценок)
Популярные вопросы: Информатика
Tractorust
15.02.2020 00:07
Переведите из восмеричной в десятичную систему счисления число 1658...
kotik259
23.07.2022 22:19
Какие графические редакторы предназначены для редактирования рисунков и зоброжений и фото на компьютере...
g0osokin
18.01.2023 10:17
Используя оператор цикла c предусловием Написать программу для вычисления значения функции y= , если х меняется от 10 до 30 с шагом 5....
АниАпельсинка
08.03.2021 05:27
4) Что будет в результате выполнения следующего кода?print (3 * 2 + 4)...
lizachumakova2
12.02.2022 16:15
Надо изобразить четырёх угольник у которого только один угол прямой...
margomds
12.02.2022 16:15
Холм в афинах-место народного собрания...
nastyarybinskap0ai9q
12.02.2022 16:15
День рождение мой день рождения празднуется 24 марта .но в мой день рождения празднуется ещё папин и бабушки и это обозначает что в 1 день 3 дня рождения в одной семье.на свой...
egorstorozhenk
12.02.2022 16:15
Устула 4 ножки, у табуретки 3 ножки. сели на стулья и табуретки люди получилось 39 ног и ножек. сколько было стульев и табуреток?...
draaams
12.02.2022 16:15
Решите уравнение: (7х-5)^2=7(x+1)^2...
pro100pakp01iyt
12.02.2022 16:15
Верно ли , что в апреле зацвели менее 80тысяч штук тюльпанов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.