ПОМОГИТЕЕЕЕЕЕ!!!!! С клавиатуры вводится последовательность чисел до тех пор пока не будет введен 0. Требуется найти порядковый номер мин.из введенного чисел

Ответы:
Алёна Санарова
03-05-2011 22:46

//Pascal ABC.NET v3.1 сборка 1172begin 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.Пример ввода:2340Пример вывода:[1] 

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ельвира Солтыс

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «ПОМОГИТЕЕЕЕЕЕ!!!!! С клавиатуры вводится последовательность чисел до тех пор пока не будет введен 0. Требуется найти порядковый номер мин.из введенного чисел» от пользователя ельвира Солтыс в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!