Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
зака16
15.03.2022 09:04 •
Информатика
Дан целочисленный массив размера n. вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество k.
Показать ответ
Ответ:
отличница475
03.08.2020 21:00
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin;
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
var k:=a.Where(x->x.IsEven).Reverse.Println.Count;
Writeln('k=',k)
end.
Пример
n= 15
25 97 33 31 92 87 70 44 75 65 26 77 48 84 39
84 48 26 44 70 92
k=6
0,0
(0 оценок)
Популярные вопросы: Информатика
Ωμza
22.02.2020 14:58
На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём. Найти среднее арифметическое всех двузначных чисел, которые делятся на 7. Python 3.8...
ExLuSsiVe
22.12.2022 12:38
информатика составьте программу для нахождения произведения 10 элементов массива (случайные числа от 0 до 10)...
егор1481
09.09.2020 21:36
Выберети правельный ответ ...
isanatoliy25199
19.12.2021 05:01
с информатикой!очень ...
stig228
17.07.2022 20:13
Выпишите сложные слова из отрывка произведения Алиса. Город без памяти Отрывок: Стоянка перед космовокзалом была переполнена, и Алисе пришлось минут пять кружить над ней, пока...
евгения406
17.07.2022 20:13
3. Четыре седьмых класса поехали на экскурсию. Когда 7А и 7Б пошли в музей, а ТВ и 70 — обедать в кафе, Марья Ивановна подсчитала, что в музее на 15 семиклассников больше,чем...
risik1205super
17.06.2022 07:07
Очень В чугунный котёл массой 20кг и объёмом 5л налили 3л воды при комнотной темературе (27°с) и поставили греться на костёр из сухих дров. Какое кол-во дров необходимо будет...
Valeriya2576
07.10.2021 20:22
Орфографический и пунктуационный практикум как живой архив этнической памяти ссловарное...
Манюня589
07.10.2021 20:22
1.Правовая и экономическая сфера. Влияние права на экономику. 2. Политические процессы в государстве....
nastyakhariton1
07.10.2021 20:22
Из всех этих предложений надо составить: утвердительные, отрицательные, вопросительные. Умоляю надо...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin;
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
var k:=a.Where(x->x.IsEven).Reverse.Println.Count;
Writeln('k=',k)
end.
Пример
n= 15
25 97 33 31 92 87 70 44 75 65 26 77 48 84 39
84 48 26 44 70 92
k=6