Информатика Операторы цикла с параметром Найти минимальное из n отрицательных чисел.

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";

ПЕР

массив_чисел: РЯД 100 ИЗ ЦЕЛ;

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

УКАЗ

ОТ сч := 0 ДО РАЗМЕР(массив_чисел) - 1 ВЫП

массив_чисел[сч] := - УЗК(ВШИРЦЕЛ(Матем.случ() * 1000))

КОН;

мин := массив_чисел[0]; ном := 0;

ОТ сч := 1 ДО РАЗМЕР(массив_чисел) - 1 ВЫП

ЕСЛИ массив_чисел[сч] < мин ТО

мин := массив_чисел[сч]; ном := сч

КОН

(* мин - минимальное значение, ном - его номер *)

КОН Задание.

Обрати внимание на то, что считается фактическое минимальное значение, а не минимальный модуль.