С клавиатуры вводится последовательность чисел до тех пор пока не будет введен 0....

Question

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

Answer 1

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.

Что еще не понятно?

Comments

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

---

гут

Answer 2

//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]

Comments

можно проще

---

begin
Writeln('index =',SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).IndexMin+1);
end.

---

Хмм, никогда не видел такого метода. Появился в последних сборках?

---

вернее так

---

begin
Writeln('index =',SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray.IndexMin+1);
end.

---

у меня еще 1200 сборка

---

давненько уже

---

Скачал 1219, не компилируется.

---

А второй вариант работает. Спасибо.