Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
123123ilya
01.03.2022 17:12 •
Информатика
30 с клавиатуры вводится последовательность чисел до тех пор пока не будет введен 0. требуется найти порядковый номер мин.из введенного чисел
Показать ответ
Ответ:
super12345167
19.08.2020 17:28
//Pascal ABC.NET v3.1 сборка 1172
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2));
end.
Пример ввода:
2
3
4
0
Пример вывода:
[1]
0,0
(0 оценок)
Популярные вопросы: Информатика
232привет
30.06.2020 06:01
1 Pygame модулін қалай іске қосуға болады? 2 Геометриялық фигураларды салу үшін қандай командамен таныстың? 3 Pygame- де түстер қалай таңдалады?...
помогите1184
07.09.2022 22:41
Как отдалять или приближать картинку во время выделения в фотошопе?...
mkm3
07.09.2022 22:41
Имеется жесткий диск оъемом 500 гбит ,сколько книг на данный диск,если каждая книга состоит из 1024 страниц,на каждой странице 64 строки,в каждой строчке 128 символом...
shydik37
04.02.2020 03:42
Какой результат получится после работы программы? Вводится пользователем: 6....
alkozlovtzeva
08.08.2021 23:06
Используя стандартную программу БЛОКНОТ, определить, какая фраза в кодировке Windows задана последовательностью числовых кодов и продолжить код. Запустить БЛОКНОТ....
TaHoC
25.07.2020 20:06
Мне нужно сочинение на тему почему я люблю свою родину...
w678Kordroy
25.07.2020 20:06
Что обозначает сложносокращенное слово воз...
tooijas
25.07.2020 20:06
Спиши текст вставь пропущенные буквы раскрой скобки обозначь орфограммы на месте пропусков...
Domikiahela
25.07.2020 20:06
Какое из данных чисел ближе к нулю ? а) -3/5 б) -0,45 в) -0,55 г) -0,5...
Dariy69
25.07.2020 20:06
Невідома речовина містить 52,17% карбону, 13,4% гідрогену і оксигену стільки ж. відносна молекулярна маса цієї речовини 46. визначте формулу речовини? ! ! (неизвестное...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2));
end.
Пример ввода:
2
3
4
0
Пример вывода:
[1]