Знайти номер першого мінімального елемента А, що вводиться із клавіатури послідовності чисел. Умова закінчення введення – уведення числа
0.
Ответы
Ответ дал:
0
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём;
ПЕР
A, мин, ном, сч: ЦЕЛ;
УКАЗ
A := Приём.Число();
ном := 0;
сч := 0;
ПОКА A # 0 ВЫП
ЕСЛИ A > мин ТО
мин := A;
ном := сч;
КОН;
УВЕЛИЧИТЬ(сч);
Вывод.Цепь(" ");
A := Приём.Число()
КОН;
Вывод.ЧЦел("^%d", ном, 0, 0, 0)
КОН Задание.
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём;
ПЕР
A, мин, ном, сч: ЦЕЛ;
УКАЗ
A := Приём.Число();
ном := 0;
сч := 0;
ПОКА A # 0 ВЫП
ЕСЛИ A > мин ТО
мин := A;
ном := сч;
КОН;
УВЕЛИЧИТЬ(сч);
Вывод.Цепь(" ");
A := Приём.Число()
КОН;
Вывод.ЧЦел("^%d", ном, 0, 0, 0)
КОН Задание.
Ответ дал:
0
блок схемой можно как то записать??
Ответ дал:
0
На бумаге это несколько проще сделать, чем на компьютере.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад