Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
miì02
09.09.2020 09:38 •
Информатика
Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать сумму всех положительных элементов.
Показать ответ
Ответ:
David228666333
06.10.2020 09:15
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Сумма положительных: ',a.Where(x->x>0).Sum)
end.
Пример
3 -4 9 -5 2 1 6 -4 10 -2
Сумма положительных: 31
0,0
(0 оценок)
Популярные вопросы: Информатика
tranatar
24.08.2022 06:57
ПРОГРАММИРОВАНИЕ НА С (который НЕ ++)Дан массив размера N (созданный с генератора случайных чисел) и целые числа K и L (1 K ≤ L ≤ N). Найти сумму всех элементов массива, кроме элементов...
Элечка195
07.07.2021 21:32
Тест «Информационные процессы» Вариант 1 1.Процессы, связанные с изменением информации или действиями с использованием информации, называют… A. А) информационными процессами B....
asdx1984
29.06.2021 08:17
Для узла с ip-адресом 48.95.137.38 адрес сети равен 48.95.128.0. найдите наименьшее возможное количество единиц в двоичной записи маски подсети. полное решение можно...
крот21
07.10.2022 01:10
Составьте алгоритм: найти произведение положительных членов последовательности среди нечетных с++...
KKotya1k
22.11.2020 02:39
Инструменты 3D-редактораУстанови соответствие....
fiyyk
07.09.2021 07:07
Запишите в виде определенного интеграла площадь фигуры ограниченной линиями y=x^2+1 x=1 x=2 y=0...
vlad12425
03.07.2022 11:12
Решить ( на расположения корней квадратного трехчлена) [tex](a - 2) {x}^{2} + 2(1 - a)x + a - 3 = 0 \\ 2 x1 x2[/tex]...
juliana123456
25.12.2020 04:13
10 праверяемой гласной в слов 10 не праверяемой гласной в слове 10 парных слов 10 непарных слов...
toteara1
11.04.2021 08:17
Який порядковий номер в таблиці менделеєва має елемент що утворюється в результаті бета розпаду ядра елемента з порядковим номером z...
kosyamosya03
25.12.2020 04:13
Вчем причина внутренней политики екатерины 2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('Сумма положительных: ',a.Where(x->x>0).Sum)
end.
Пример
3 -4 9 -5 2 1 6 -4 10 -2
Сумма положительных: 31