Знайти номер першого мінімального елемента А, що вводиться із клавіатури послідовності...

Question

Знайти номер першого мінімального елемента А, що вводиться із клавіатури послідовності чисел. Умова закінчення введення – уведення числа
0.

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  A, мин, ном, сч: ЦЕЛ;

УКАЗ
  A := Приём.Число();
  ном := 0;
  сч := 0;
  ПОКА A # 0 ВЫП
    ЕСЛИ A > мин ТО
      мин := A;
      ном := сч;
    КОН;
    УВЕЛИЧИТЬ(сч);
    Вывод.Цепь(" ");
    A := Приём.Число()
  КОН;
  Вывод.ЧЦел("^%d", ном, 0, 0, 0)

КОН Задание.

Comments

что эт за язык? 1С?

---

блок схемой можно как то записать??

---

Не, это Глагол, диалект Оберона.

---

Ну нарисуй блок-схему по коду, в чём проблема?

---

На бумаге это несколько проще сделать, чем на компьютере.