Question

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

Answer 1

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

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

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

КОН Задание.

Answer 2

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

Answer 3

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