Войти
Регистрация
Спроси ai-bota
lfifа
04.07.2021 00:40
Pascal abc . заполнить массив из 10-ти элементов целыми случайными числами в диапазоне [ – 20; 20], вычислить сумму положительных элементов массива
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Mitrel
18.07.2020 03:36
Оператор сонында не койылады? ...
annaglukhikh07
15.10.2022 22:46
Які види анімаційних ефектів існують у редакторі презентацій PowerPoint? Для чого використовують кожен тип?...
Alisa27Alisa
27.04.2023 17:53
Значение арефметического выражения 9^5-3^7+3^15 записали в системе счисления с основанием 3. сколько цифр 0 содержится в этой записи?...
millizza11
13.09.2022 20:53
Вычислить значения двух функций в n равномерно распределенных в диапазоне а ≤ x ≤ b точках. Значения X, F1 и F2 были представлены двумерным массивом, состоящим из трех строк....
vova3734
22.05.2022 10:03
11. Найдите значения выражений: а) (1 v 1) v (1 v 0); б) ((1 v0) v 1) v 1); в) (0 & 1) & 1; г) 1 & (1 & 1) & 1; д) (1 v0) & (1 & 1)) & (0 v...
arturka111
27.02.2022 09:39
уличный торговец едой получает а рублей прибыли за первые 30 порций, после он получает на 20% больше. Посчитать прибыль за день если он продает 180 порций в день. Написать...
antimonovaanas
31.08.2021 13:22
Значение арефметического выражения 2*9^6-3^7+7 записали в системе счисления с основанием 3. сколько цифр 2 содержится в этой записи?...
РоманРазумный
31.03.2021 08:04
Решить . написать программу вывода на экран лесенкой трех последовательно идущих трехзначных чисел . первое число вводит пользователь,остальные вычисляют в программе. 213 101...
KateSved
31.03.2021 08:04
:написать программу на паскале, с (с++) или бейсике. входной файл: input.txt. выходной файл: output.txt. ограничение времени выполнения программы: 1 секунда на тест. спецификация...
bossmakswell
31.03.2021 08:04
Напишите ! ввести три числа, найти их сумму, произведение и среднее арифметическое(т.е. деление)...
Ответ:
DariaDosh
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 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота