Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
martirosyan01
03.10.2021 13:28 •
Информатика
30 с клавиатуры вводится последовательность чисел до тех пор пока не будет введен 0. требуется найти порядковый номер мин.из введенного чисел
Показать ответ
Ответ:
xaxaxxa
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 оценок)
Популярные вопросы: Информатика
БоняЛизякин
02.01.2022 02:11
Каждая страница книги содержит 20 строк , по 50 символов в каждой строке. книга состоит из 152 страниц. рассчитать информационный объём учебника и записать ответ...
элизабет35
25.02.2020 01:40
Расшифруйте двоичном виде 010001010111110 используя таблицу ascii....
gcgccg
16.04.2020 12:21
Что является разработкой алгоритма решения задачи? А) Сведение задачи к математической модели, для которой известен метод решения. В) Выбор наилучшего метода решения...
Vika15678
17.02.2022 14:15
Решите следующие задачи: 1. Каждый символ кодируется 8 битами. Андрей написал текст (в нём нет лишних пробелов): «Чад, Куба, Катар, Швеция, Эстония, Танзания, Сальвадор...
ТвОйМаЛьЧиК
24.05.2020 13:00
ЗАДАЧА ПАСКАЛЬ. 9 класс. , как грязи Дан одномерный массив, заполненный целыми случайными числами из отрезка [- 10, 10]. Найти наибольшее значение в первой половине...
03166
29.09.2021 00:07
У исполнителя Дельта две команды, которым присвоены номера: 1. умножить на 2 2. вычесть d (d – неизвестное натуральное число; d ≥ 2) Выполняя первую из них, Дельта...
catyaserduck
31.05.2021 15:48
Обов язковим параметром під час збереження презентації є тип файлу. *.doc*.ppt*.jpg*.xls*.pps...
думка3
31.05.2021 15:48
Придумайте сценарий для мультфильма маленький...
hadisvv99
13.08.2020 09:21
сделать весь 1 вариант за это дам...
natochkaa333
17.01.2022 05:09
Собственная скорость теплохода — 33 км/ч, а скорость течения реки — 3 км/ч. теплоход расстояние между двумя пристанями в 180 км проходит по течению реки. составь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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]