Найти минимальный элемент массива. Определить количество минимальных элементов - VB

Формулировка задачи:

Вообще не могу сообразить как его сделать..+ модуль влепить как-то нужно....а как это сделать то же без понятия. Дано одномерный массив целых чисел A[i], где i=1, 2, … n. Найти минимальный элемент массива. Определить количество минимальных элементов массива, заменить значение минимальных элементов на -999.

Решение задачи: «Найти минимальный элемент массива. Определить количество минимальных элементов»

textual
                            Листинг программы 
                        

                            Sub Task(A() as integer)
  min%=A(1)
  For i%=2 to Ubound(A,1)
      if A(i%)<min% then min%=A(i%)
  Next i%
  Debug.print "Мин=";min%
  c%=0
  For i%=1 to Ubound(A,1)
       if A(i%)=min% then
         c%=c%+1
         A(i%)=-999
      End if
  Next i%
  Debug.print "Замен ";c%
End Sub
                        

Оцени полезность:

14 голосов , оценка 4 из 5

Похожие ответы