Question

How to find the maximum value we can achieve by picking k elements from an array in VB.NET

Answer 1

Imports System

Module Program

   Function MaxSumOfK(arr As Integer(), k As Integer) As Integer
		' Sort descending
		Array.Sort(arr)
		Array.Reverse(arr)

		Dim sum As Integer = 0
		For i As Integer = 0 To k - 1
			sum += arr(i)
		Next

		Return sum
	End Function


	Sub Main()
		Dim arr() As Integer = {11, 2, 4, 9, 3, 6, 5, 1}
		Dim k As Integer = 3

		Dim result As Integer = MaxSumOfK(arr, k)
		Console.WriteLine(result)   
	End Sub

End Module

		
' run:
'
' 26
'

 

70+ SQL courses for beginners and professionals