Решаем задачи Абрамян на Кумире. Minmax19

Minmax19. Дано целое число $N$ и набор из $N$ целых чисел. Найти количество минимальных элементов из данного набора.

Решение Дмитрий:

использовать Файлы

алг Minmax19 (рез цел Nmin)

нач

цел MIN

файл файл1

файл1:=открыть на чтение ("Minmax19.txt")

цел x

ввод файл1, x

вывод x," "

MIN:=x

Nmin:=1

нц пока не конец файла (файл1)

ввод файл1, x

вывод x," "

выбор

при x<MIN : MIN:=x

Nmin:=1

при x=MIN : Nmin:=Nmin+1

все

кц

закрыть(файл1)

кон

Файл Minmax19.txt:

1	5 9 34 12 4 78 43 265 4 8675 165

Другие задачи из раздела Minmax можно посмотреть здесь.