Найти минимальный элемент массива. Определить количество минимальных элементов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
