Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
13579014
01.04.2023 03:02 •
Информатика
По информатике paskal; заполнить массив натуральными числами от 5 до 15 , все четные числа разделить на два и вывести на экран сумму элементов.
Показать ответ
Ответ:
оля2045
01.09.2020 20:24
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,5,15); a.Println;
a:=a.Select(x->x mod 2=0?x div 2:x).ToArray;
a.Println;
writeln('s = ',a.Sum);
end.
Пример:
6 13 7 10 12 13 11 13 9 12 5 15 13 7 12 13 14 9 12 6
3 13 7 5 6 13 11 13 9 6 5 15 13 7 6 13 7 9 6 3
s = 170
0,0
(0 оценок)
Популярные вопросы: Информатика
milaangel1
19.07.2020 11:40
Вэлектронной почте всегда автоматически создается папка - .. какая?...
vikatormash09
19.07.2020 11:40
Составьте программу определяющую является ли последняя цифра определенного целого числа нечетным числом. пример ввода: 1245 пример вывода: 5-нечетное число...
ksushaandreeva0
24.02.2020 13:56
10 учеников проходили тестирование по 5 темам какого либо предмета.вычислить суммарный(по всем темам)средний ,полученный учениками.сколько учеников имеют суммарный ниже...
iwanttobelllllive
20.03.2020 14:20
Укажите команду цикла и опишите её назначение ...
Boss008Mta
22.06.2021 18:19
Приведите форму записи оператора FOR...
Lbailieva
10.02.2022 14:38
Решить в Python-е 1)В области 12 районов. Известны количество жителей (в тысячах человек) и площадь (в км2) каждого района. Определить среднюю плотность населения по области...
erkr
21.04.2020 10:03
1)какое значение для христиан имело принятие символа веры? нужно 2) какие формы монашества существовали в ранее средневековье ? опишите их...
kucherenkolshaLexa
21.04.2020 10:03
1пример 1,93 : 0,1 + 70 умножить 0,01 2 пример 0,8 умножить 0,125 умножить 40: 0,1 3 пример (80,48 + 19,52 - 0,4 ) : 0,2 4 пример 63,001 - 6,3 умножить (0,32 + 9,68) ради...
NinjaKiller1337
21.04.2020 10:03
Из молока делают 23% сливок. сколько кг сливок получают из 300 кг молока ?...
Kanat2K4
21.04.2020 10:03
Подчеркните слова с чередующейся безударной гласной в корне. положение, стереть,примирять(врагов),замирать, косить,собиравшийся,тернистый,растоптать....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(20,5,15); a.Println;
a:=a.Select(x->x mod 2=0?x div 2:x).ToArray;
a.Println;
writeln('s = ',a.Sum);
end.
Пример:
6 13 7 10 12 13 11 13 9 12 5 15 13 7 12 13 14 9 12 6
3 13 7 5 6 13 11 13 9 6 5 15 13 7 6 13 7 9 6 3
s = 170