• С клавиатуры вводится последовательность чисел до тех пор пока не будет введен 0. Требуется найти порядковый номер мин.из введенного чисел

Ответы 9

  • Теперь все понятно,спасибо большое!
    • Автор:

      sergio58
    • 5 лет назад
    • 0
  • begin Writeln('index =',SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray.IndexMin+1);end.
    • Автор:

      omariwshs
    • 5 лет назад
    • 0
  • у меня еще 1200 сборка
    • Автор:

      kash
    • 5 лет назад
    • 0
  • давненько уже
  • гут
  • Скачал 1219, не компилируется.
  • А второй вариант работает. Спасибо.
  • //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]
    • Автор:

      aresio
    • 5 лет назад
    • 0
  • var  mini, min, n, i: integer;begin  i := 1; {порядковый номер введенного с клавы числа}  readln(n); {считываем число в клавиатуры}  min := n; {присваеваем минимуму первое введенное число. Если будет введено одно число то оно и есть минимум}  mini := i; {присваеваем порядковый номер минимума}   repeat{повторяем}    i := i + 1; {порядковый номер введенного с клавы числа}    readln(n); {считываем число в клавиатуры}    if (n <> 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум}      min := n; {присваеваем минимуму число}      mini := i;{присваеваем порядковый номер минимума}    end;  until n = 0;{до тех пор пока n=0}    writeln('index = ', mini);end.Что еще не понятно?
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years