Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
adfvdrt
04.04.2021 20:47 •
Информатика
Решитее ! заполнить массив a[1..10] из десяти целых чисел от -30 до 30 с датчика случайных чисел и вывести исходный массив на экран.найти сумму положительных элементов массива.
Показать ответ
Ответ:
shmilkovas
14.08.2020 01:17
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandom(10, -30, 30);
a.Println(a);
writeln(a.Where(x -> x > 0).Aggregate(0, (s, x)-> s + x));
end.
0,0
(0 оценок)
Ответ:
zholdashev
14.08.2020 01:17
//PascalABC.NET 3.1 сборка 1239
begin
var a := ArrRandom(10, -30, 30);
a.Println(a);
writeln(a.Where(x -> x > 0).Aggregate(0, (s, x)-> s + x));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dfytr88
15.09.2022 14:53
Процесс создания приложения в интегрированной среде lazarus...
Tiiiddj
22.11.2020 03:21
Напишите программу по обмену сомов на доллары и евро. ...
1205223
06.08.2022 14:35
Запишите в форме логического выражения составное высказывание (2*4=8 или 2*4≠8) и (2*6= 12 и 2*6≠12) , где Т =(2*4=8); О=(2*6=12)...
ambasaddor
27.01.2021 19:28
Изучите материал, предлагаемый в Конспекте к уроку в Онлайн мектеп. Выпишите в тетрадь: 1. Алгоритм рисования цилиндра 2. Алгоритм рисования конуса 3. Алгоритм рисования сферы (шара)...
artem861
29.08.2022 01:53
1. Изучите приведенную таблицу расхода электроэнергии домашними бытовыми приборами (стандартный набор) за один календарный месяц. ответьте на вопросы.A) Запишите формулу для ячейки...
iermin98
22.02.2022 19:03
Люди надо не знаю как решить...
timtim5
22.02.2022 19:03
Найти главные члены предложения выделить и написать над сказуемым их вид...
Дарина37373
22.02.2022 19:03
Один из исследователей биографии и творчества Н. С. Лескова говорит о «лесковских университетах». Как вы это понимаете? Подтвердите примерами из его биографии. ...
юстина6
15.06.2021 08:17
В каком направлении от открытых островов находится ближайший населённый пункт...
draft1challenge
15.06.2021 08:17
У воду масою 1.5 кг при температурі 20 градусів долили 800г води при температурі 100 градусів. Яку кількість теплоти передано навколишньому середовищу до того моменту, коли температура...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a := ArrRandom(10, -30, 30);
a.Println(a);
writeln(a.Where(x -> x > 0).Aggregate(0, (s, x)-> s + x));
end.
begin
var a := ArrRandom(10, -30, 30);
a.Println(a);
writeln(a.Where(x -> x > 0).Aggregate(0, (s, x)-> s + x));
end.