1 2 3 4 5 6 7 8 9 10 11 12 13 14 | INPUT n DIM a(n) FOR i = 1 TO n INPUT a(i) NEXT min = a( 1 ) FOR i = 2 TO n IF a(i) < min THEN min = a(i) NEXT i k = 0 FOR i = 1 TO n IF a(i) = min THEN k = k + 1 NEXT i PRINT "kolvo elementov massiva ravnih minimalnomu="; k |
Тестирование выполнено в программе QB64 ( Скачать )