Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
bozhkosofia
15.03.2022 09:04 •
Информатика
Дан целочисленный массив размера n. вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем — все нечетные числа в порядке убывания их индексов.
Показать ответ
Ответ:
culi42
26.08.2020 16:40
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin;
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
(a.Where(x->x.IsEven)+a.Where(x->x.IsOdd).Reverse).Println
end.
Пример
n= 20
94 23 35 11 31 14 63 97 8 65 56 81 18 80 18 38 59 59 28 87
94 14 8 56 18 80 18 38 28 87 59 59 81 65 97 63 31 11 35 23
0,0
(0 оценок)
Популярные вопросы: Информатика
dina2607
27.02.2022 07:45
Дан массив из 100 целых чисел. Необходимо найти разность между количеством максимальных и минимальных элементов, содержащихся в этом массиве. Укажите возможный план действий...
aidakairatova02
27.02.2022 07:45
Сколько байт потребуется, чтобы закодировать изображение размером 600x800 пикселей палитрой из 16 цветов?...
ninachka1977
11.10.2020 10:19
Дан символ. Определи, данный символ управляющий или изображаемый. Символ: SOH управляющий изображаемый...
SAA0807
28.07.2021 20:24
Установите соответствие Очень надо...
яАРтеМоНкА
28.12.2020 05:48
выполнить задание. Это ОДНО задание - 2-ое нужно выполнить всё по пунктам человека НЕ ниже ранга Учёного. Всё нужно выполнить в тетради, прикрепить скриншоты. Решение...
Балерина2017
26.07.2020 02:36
Что такое встроенные объекты Для чего их используют Какие есть модули скетч ап позволяющий встроить объекты в программу Опишите функцию модуля Материалы Опишите функцию...
mariagievich
09.02.2020 00:59
решить! Задание по информатике...
sasha33427
16.03.2020 15:08
2 задание. Информатика....
зайчик851
28.05.2021 15:50
Установите соответствие....
axon11kot
15.04.2020 20:48
Напишите программу, которая находит среднееарифметическое всех чисел, записанных в файле встолбик, и выводит результат в другой файл.(На языке Python)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin;
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
(a.Where(x->x.IsEven)+a.Where(x->x.IsOdd).Reverse).Println
end.
Пример
n= 20
94 23 35 11 31 14 63 97 8 65 56 81 18 80 18 38 59 59 28 87
94 14 8 56 18 80 18 38 28 87 59 59 81 65 97 63 31 11 35 23