Submission #4059679
Source Code Expand
Imports System.Collections.Generic Imports System.Console Module Program Sub Main() Dim InPutLine1() = Gets(0).Split(" "c) Dim InPutLine2() = Gets(0).Split(" "c) Dim IntN As Integer = CInt(InPutLine1(0)) Dim IntK As Integer = CInt(InPutLine1(1)) Dim IntArr(1) As Integer '= GetInts(InPutLine2) IntArr(0) = 1 IntArr(1) = 2 Dim ans As Integer = 0 Dim anstmp() As Integer Dim IntSum() As Integer Dim ii As Integer Dim i1 As Integer If IntN < IntK Or IntN < 1 Or IntN > 5000 Or IntK < 1 Or IntK > 5000 Then Exit Sub End If If IntArr.Min() < 0 Or IntArr.Max() > 1000 Then Exit Sub End If If IntN = IntK Then ans = IntArr.Max() ElseIf IntK = 1 Then ans = IntArr.Sum() ElseIf IntK = 2 Then ReDim anstmp(IntN - 2) For ii = 0 To IntN - 2 ReDim IntSum(1) For i1 = 0 To ii IntSum(0) += IntArr(i1) Next IntSum(1) = IntArr.Sum() - IntSum(0) If IntSum(0) > IntSum(1) Then anstmp(ii) = IntSum(0) Else anstmp(ii) = IntSum(1) End If Next ans = anstmp.Min() Else ans = 0 End If Console.WriteLine(ans) Console.ReadLine() End Sub Function Gets() As String() Gets = Console.ReadLine().Split(vbCrLf) End Function End Module
Submission Info
Submission Time | |
---|---|
Task | A - One out of Three |
User | dvh |
Language | Visual Basic (Mono 4.0.1) |
Score | 0 |
Code Size | 1648 Byte |
Status | CE |