Описать функцию MinElem(A, N) - VB

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

Описать функцию MinElem(A, N) целого типа, находящую минимальный элемент целочисленного массива А размера N. С помощью этой функции найти минимальные элементы массивов A, B, C размера Nа, Nb, Nc соответсвенно

Решение задачи: «Описать функцию MinElem(A, N)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function MinElem(A() as integer, Optional p as integer=0, Optional m as integer =0)
  If p=0 then
     MinElem=MinElem(A,1,A(1))
  else
     If (p<Ubound(A,1)) then
        If A(p) < m then
           MinElem=MinElem(A,p+1,A(p))
        else
           MinElem=MinElem(A,p+1,m)
     else
        MinElem=m
     end if
  end if
End function

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

13 голосов , оценка 4.077 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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