Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
vlad134631
05.09.2022 00:30 •
Информатика
Pascal abc . заполнить массив из 10-ти элементов целыми случайными числами в диапазоне [ – 20; 20], вычислить сумму положительных элементов массива
Ответ:
Liza201713
08.10.2020 13:01
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.
Пример
-3 -19 10 5 14 13 -1 0 -2 -12
Сумма положительных равна 42
0,0
(0 оценок)
Популярные вопросы: Информатика
Тьома11
24.05.2020 09:29
Сколько цветов будет в палитре, если каждый базовый цвет кодировать в 3 битах?...
nastyagru1
24.09.2020 11:40
Надо написать этапы загрузки операционной системы.(если можно подробно)...
MarikMansurov
26.05.2020 06:45
Уисполнителя программист две команды, которым присвоены номера: 1. вычти 3 2. умножь на 4 первая из них уменьшает число на экране на 3, вторая — увеличивает число в...
RamzesCake
09.11.2021 04:14
Как происходит корректирование и редактирование изобра- жений, нарисованных от руки? Поделись опытом, полученным на уроке художественного труда.Какое изображение сложнее...
Polinka21a
08.06.2022 21:15
Что ты понимаешь под коррекцией изображения?* *Как ты считаешь, в чем заключается основная цель применения эффектов к изображению?* *Какой эффект, не входящий в список...
aidos2008
07.10.2020 15:45
Выбери модели, которые относятся к материальным: Верных ответов: 2 скелет человека схема движения транспорта глобус карта земли...
miao2
15.12.2020 02:21
Напишите это на языке с++...
бопаш
21.03.2020 07:34
Есть два прямоугольника одинаковой площади длина первого 20 см ширина 18 см а длина второго 24 см какая ширина второго прямоугольника...
arakelyankrist
21.03.2020 07:34
Укажите каким образовано наречие дочиста...
Pomogite5pozalystaz
21.03.2020 07:34
Она спросила,где они были вчера.перевод в косвенную речь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-20,20); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum)
end.
Пример
-3 -19 10 5 14 13 -1 0 -2 -12
Сумма положительных равна 42