Minmax12. Дано целое число $$N$$ и набор из $$N$$ чисел. Найти минимальное положительное число из данного набора. Если положительные числа в наборе отсутствуют, то вывести $$0$$.
Решение Дмитрий:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
использовать Файлы алг Minmax12 (рез цел minplus) нач файл файл1 minplus:=0 файл1:=открыть на чтение ("Minmax12.txt") цел A нц пока не конец файла(файл1) ввод файл1, A вывод " ", A, " " если A>0 и (minplus=0 или A<minplus) то minplus:=A все кц вывод нс закрыть (файл1) кон |
Файл Minmax12.txt:
|
1 |
-2 -3 45 32 0 41 1 -4 -24 -45 -1 2 |
Другие задачи из раздела Minmax можно посмотреть здесь.
Комментарии: