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

Question

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

Answer 1

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

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

ПЕР

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

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

УКАЗ

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

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

 КОН;

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

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

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

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

   КОН

 КОН

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

КОН Задание.

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

Comments

блин, сорян это надо в паскале

---

Ну это почти Паскаль.

---

просто мне нужна именно программа, 2 день уже над ней сижу

---

В чём сложность?

---

не умею с масивами работать

---

Ну я в Паскале тоже не знаю, как массивы выглядят. Принцип-то тот же, но безошибочно это не опишу.