Minmax20. Дано целое число $$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 |
использовать Файлы П алг minmax2 (рез цел минимумы, максимумы) дано надо нач цел файл файл:=открыть на чтение ("minmax20.txt") цел a, a_макс, a_мин |a_макс - максимальный элемент, |a_мин - минимальный элемент Фввод файл,a вывод a,' ' a_макс:=a; a_мин:=a; максимумы:=1; минимумы:=1 нц пока не конец файла (файл) Фввод файл,a вывод a,' ' выбор при a>a_макс: a_макс:=a; максимумы:=1 при a=a_макс: максимумы:=максимумы+1 при a<a_мин: a_мин:=a; минимумы:=1 при a=a_мин: a_мин:=a; минимумы:=минимумы+1 все кц закрыть (файл) вывод нс кон |
Другие задачи из раздела Minmax можно посмотреть здесь.
Комментарии: