Войти
Регистрация
Спроси 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
Вэлектронной почте всегда автоматически создается папка - .. какая?...
ksushaandreeva0
24.02.2020 13:56
10 учеников проходили тестирование по 5 темам какого либо предмета.вычислить суммарный(по всем темам)средний ,полученный учениками.сколько учеников имеют суммарный ниже...
iwanttobelllllive
20.03.2020 14:20
Укажите команду цикла и опишите её назначение ...
Lbailieva
10.02.2022 14:38
Решить в Python-е 1)В области 12 районов. Известны количество жителей (в тысячах человек) и площадь (в км2) каждого района. Определить среднюю плотность населения по области...
Kanat2K4
21.04.2020 10:03
Подчеркните слова с чередующейся безударной гласной в корне. положение, стереть,примирять(врагов),замирать, косить,собиравшийся,тернистый,растоптать....
NezNeika
21.04.2020 10:03
Подарили гости жене пушку, танк и пистолет. подчеркнуть программу...
trokhymukjulia
21.04.2020 10:03
Представьте десятичные числа в виде суммы степеней десятки: 328 2346 9872,123 10011...
лала4647
21.04.2020 10:03
Смысл хороводно лерической песни уж ты,ночка,ты, тёмная...
Lena1056
21.04.2020 10:03
Пять крылатых вырлжений из древнегреческих мифов...
Ryslan090
21.04.2020 10:03
Треугольник abc вписан в окружность радиуса 6. найдите длину хорды ab если синус угла abc равен 2/3....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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