Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
снежана183
12.09.2020 18:20 •
Информатика
Написать программу, одномерный массив из 10 элементов. значения членов массива вводятся при выполнении программы. программа должна определять сумму поло-жительных членов массива. пож
Показать ответ
Ответ:
moscow1506
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 оценок)
Популярные вопросы: Информатика
llopatniseva
13.08.2022 17:47
Рассчитайте объем видеопамяти, необходимой для хранения графического изображения, занимающего весь экран монитора с разрешением 1024x768 и количеством отображаемых цветов,...
pro63
11.07.2020 03:37
Заполнить массив случайными числами из интервала от 0 до 50 и вывести его на экран. (на 3). найти сумму его четных элементов (на 4-5). может : пример. заполнить массив...
Сталкер027
09.09.2022 23:14
Обычный паскаль! написать в тетради код программы, которая запрашивает у пользователя числа и считает их сумму до тех пор, пока пользователь не введет число 44. после...
annakolupaewa20
09.06.2022 22:24
Составить программу которая выбросит из записи числа n все цифры равные 1, оставив при этом прежним порядок остальных цифр. пример 5101234-50234...
айсу17
09.06.2022 22:24
Составить программы в паскале abc,используя цикл while. : 1.вычислить сумму последовательности положительных чисел,введенных с клавиатуры.(ввод оканчивается,как только...
alenajad
06.09.2022 22:06
1. задан массив d. определить следующие суммы: d[1] + d[2] + d[3]; d[3] +d[4] +d[5]; d[4] + d[5] + d[6], используя подпрограмму для вычисления суммы трех последовательно...
AlexeyB96
27.02.2021 03:52
Найти произведение всех положительных элементов массива в(3,2)....
Fast2791
27.02.2021 03:52
Для хранения растрового изображения размером 64 х 32 пикселов отвели 256 байт памяти. каково максимально возможное количество цветов в палитре изображения?...
kakashka564
28.02.2021 22:23
Объем видеопамяти равен 1.61 мб. разрешающая дисплея 800х600. какое максимальное количество цветов можно использовать при условии, что видеопамять делится на 4 страницы?...
vladamalaxova
22.02.2022 09:19
1. в одной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: я вас любил безмолвно, безнадежно, то...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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