Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tanygina067
31.07.2022 16:17 •
Информатика
Ввести одномерный массив размерностью n. вывести значение и номер последнего четного элемента или сообщение об отсутствии четных значений.
Показать ответ
Ответ:
anaStasyaplus
02.10.2020 12:11
// F#
[<EntryPoint>]
let main argv =
let elements =
System.Console.ReadLine().Split(' ')
|> Seq.map (fun x -> System.Int32.Parse x)
|> Seq.mapi (fun i x -> (x, i))
|> Seq.where (fun (x, i) -> x % 2 = 0)
if elements |> Seq.length > 0
then System.Console.WriteLine("{0} {1}", elements |> Seq.last |> fst, (elements |> Seq.last |> snd) + 1)
else System.Console.WriteLine("No results")
System.Console.ReadKey true |> ignore
0
0,0
(0 оценок)
Популярные вопросы: Информатика
lizaknyazeva580
29.02.2020 20:37
Запишите программный код, позволяющий вывести Вашу первую букву в имени в виде звездочек (к каждой строке программного кода пропишите комментарии). Например, буква I. Язык ассемблер...
Lissa000
21.03.2021 19:34
Написать программу на паскале по этой . ввести 3 числа,найти их сумму,произведение и среднее арифметическое....
толстыи
06.05.2020 10:45
Имя не объявлено Кумир Кузнечик ввожу всё как надо, но почему-то не работает...
llallallup
06.05.2020 10:45
Создайте 3D -модели геометрических фигур. изображенных ...
nagornayka69
06.04.2023 10:43
Дано число его удвоить и утроить составить программу в паскаль...
varlamovanastya
06.04.2023 10:43
Двоичное число 100110 в десятичнлй системе счисления записывается как а)36 б)38 в)37 г)46 с решением...
Disna2006
14.06.2021 09:35
Запусти программу MS PowerPoint. Cоздай четыре слайда. Выбери фон для обычных слайдов: 2- зеленый, 3-голубой, 4- красный, 5- желтый. Для этого: 1) в контекстном меню слайда выбери...
roma1918
24.05.2020 18:22
Нужно изобразить в Блокноте, так как в файле...
coollest
20.07.2022 22:56
Під час гідролізу сахарози з ag2o одержали 10 8 г срібла. визначте масу сахарози...
mischkulentsov
31.03.2023 07:44
2. ) Один із восьми кутів, що утворилися при перетині двох паралельних прямих січною, дорівнює 86°. Знайдіть решту кутів.3.( ) Кут при основі рівнобедреного трикутника дорівнює 75°,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
[<EntryPoint>]
let main argv =
let elements =
System.Console.ReadLine().Split(' ')
|> Seq.map (fun x -> System.Int32.Parse x)
|> Seq.mapi (fun i x -> (x, i))
|> Seq.where (fun (x, i) -> x % 2 = 0)
if elements |> Seq.length > 0
then System.Console.WriteLine("{0} {1}", elements |> Seq.last |> fst, (elements |> Seq.last |> snd) + 1)
else System.Console.WriteLine("No results")
System.Console.ReadKey true |> ignore
0