Minmax4. Дано целое число $$N$$ и набор из $$N$$ чисел. Найти номер минимального элемента из данного набора.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
program MinMax4; var R,Min:Real; i,N,MinNum:Integer; begin Write('N:'); Readln(N); for i:=1 to N do begin Write('Введите ',i,' элемент:'); Readln(R); if i=1 then begin Min:=R; MinNum:=i; end; if R<Min then begin Min:=R; MinNum:=i; end; end; Writeln(MinNum); end. |
Другие задачи из раздела Minmax можно посмотреть здесь.
А если минимальных элементов несколько?
В задании сказано «Найти номер минимального элемента из данного набора.» Если бы их было несколько или важно. Было бы уточнение. В решении из шапки отобразится первый минимальный элемент.