Const n = 8, k = 3

        Dim a(n) As Integer, s2,tmp,j As Integer

 

        Randomize()

        For i = 0 To n-1

            a(i) = Rnd() * (40 - (-20)) + (-20)

            Console.WriteLine(a(i))

        Next i

        s2 = 0

        For i = 0 To n-1

            If a(i)>0 Then s2 = s2 + a(i)

        Next i

        s2 = 2*s2   'удваиваем

        Console.WriteLine("Sum2+: " & s2)

        For i = 1 To n-1

            If a(i)>a(i-1) Then Console.WriteLine(i)

        Next i