Предмет: Информатика,
автор: вітамінка
Знайти номер першого мінімального елемента А, що вводиться із клавіатури послідовності чисел. Умова закінчення введення – уведення числа
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
На бумаге это несколько проще сделать, чем на компьютере.
Похожие вопросы
Предмет: Литература,
автор: kristinamolitva66
Предмет: Физика,
автор: monitary
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: Кисленыш
Предмет: Литература,
автор: vladrusnak