Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Абдешова98
01.05.2021 16:38 •
Информатика
Написать программу, одномерный массив из 10 элементов. значения членов массива вводятся при выполнении программы. программа должна определять сумму поло-жительных членов массива. пож
Показать ответ
Ответ:
промышок
03.10.2020 18:47
//Pascal ABC.NET 3.1 сборка 1256
begin
var ar:=readArrInteger(10);
writeln(ar.Where(x -> x>0).Sum);
end.
Пример ввода:
-1
2
-3
4
-5
6
-7
8
-9
0
Пример вывода:
20
0,0
(0 оценок)
Популярные вопросы: Информатика
limon4ikru
24.01.2022 00:09
Пользователь работал с каталогом С:\Уроки\7 класс\Информатика. Сначала он поднялся на один уровень вверх, после этого спустился в каталог Физика, в котором находился файл...
marinaboarskaa41
20.10.2021 19:09
Как можно включить диаграмму в электронную таблицу?...
робот60
04.01.2021 19:52
Python Составьте программу определения ближайшей к началу координат точки из трех заданных с клавиатуры....
666Luc666
04.05.2022 12:43
Задачи нужно решить по языку программирования Python: Найти площадь прямоугольного треугольника ,у которого один из катетов равен 3 см,а гипотенуза 5 см.ВТОРАЯ ЗАДАЧАНайти...
tata15711
28.05.2023 09:13
Туземец знает два различных жеста. сколько он может показать различных слов из этих жестов, есои можно использовать в слове 9 жестов.решение...
zhazi9494e
22.09.2020 04:02
Запиши верный ответ, если дан алгоритм: a1: =4/(13x) a2: =a1/x a3: =a2/x a4: =a3/x y: =a1+a4...
kristina13131
09.12.2022 12:57
Айтылым. 2-тапсырма мұқағали ақынның наурыз туралы екі өлеңін венн диаграммасы түрінде салыстырыңдар. алдымен әр өлеңнің ерекшелігін, содан соң ортақ белгілерін табыңдар....
gnikitav2007
21.08.2020 12:58
Заполните триаду по теме «Коллективизация », т. е. укажите причины и следствия данных в таблице исторических событий....
valia622
22.09.2021 12:38
Complete the sentences with the verbs in the box. has been delayed has been asked have been encouraged have been caused have been brilt have been affected 1 More cycle...
vova01092005
10.10.2020 01:59
Напишите эссе на одну из тем «Диета- это здоровое питание» «Диета без вреда для здоровья» даю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var ar:=readArrInteger(10);
writeln(ar.Where(x -> x>0).Sum);
end.
Пример ввода:
-1
2
-3
4
-5
6
-7
8
-9
0
Пример вывода:
20