tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Заполнить массив из
Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать сумму всех положительных элементов.
sssmak1
2 01.09.2019 07:01
9
Ответы
Aidanok1
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ВиолеттаМиллер1
15.09.2020 01:09
Заполните таблицу и сравните размеры файлов в разных форматах....
IvanIvan777
04.08.2019 20:20
Постройте графичискую модель собственой успеваймости по двум различным предметам самы любимы и нелюбимый спрогнозируйте по этой модели свой дальнейший прогресс обучения...
Qucha
04.08.2019 20:30
Составьте программу для вычисления площади прямоугольника и треугольника, если a=220, b=250, h=10....
ДмитрийРазумный
04.02.2021 12:33
проанализируй программные блоки представленные на рисунке 9 что может быть результатом раелизации этой программы? объясни почему?...
julliastripa
04.02.2021 12:32
Ввод и вывод чисел Определи возможные варианты входных данных, если на экран будет выведено число 9.a=int(input( Введите 1-е число:))b= int(input( Введите 2-е число:...
alyakozlova22
27.08.2019 03:50
Найти сумму чисел кратных 3, от 1 до 17...
stasikpavel
27.08.2019 03:50
Найти сумму чисел кратных 3, от 1 до 17...
Ромчик55123
14.08.2019 04:20
Вы отправляете товарищу sms-сообщение с по . рассмотрите эту ситуацию с информационной точки зрения, указав источник информации, кодирующее устройство и приёмник информации....
VelievaAyka18
14.08.2019 04:20
Какое изображение обычно используется на кнопке для удаления файла...
Alina25255
18.10.2020 20:56
Составить алгоритм по картинке с (нц) ...
Популярные вопросы
Укажите верные равенства. (20 + 5) • 4 = 20 + 5 • 4 13 • (10+2) =...
3
Преобразовать обычные дроби в десятичные 1) 3/4+0,28. 2)30/7+0,5....
1
Знайдіть косинус найбільшого кута трикутника, сторони якого дорівнюють...
2
Ищу девушку мне 11 буду рад...
2
7. Составыте сложный план по одной из следующих тем: «Роль чтения...
1
Вычисли: 1/16 от 640= 5/12 мин. = …..с 7/25 рубля = … коп.поиогите...
1
Ұшқан ұя повесінің үзіндісі бойынша 15 сұрақ құрау...
1
20 фразеологических оборотов по теме Книга...
3
ответить на вопросы по роману «Бедные люди» . 1)Кто такой Макар Девушкин?...
2
86. Движение вдогонку Ты научиться решать задачи на движение вдогонку.1....
1
// Внимание! Если программа не работает, обновите версию!
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