Узнать сумму и количество элементов массива X(N), которые удовлетворяют условию

Dim i, n, m As Integer, rez, x(30) As Decimal
'Ввод n и х()
m = 0 : rez = 0
For i = 1 To n
If x(i) > 0 Then m = m + 1 : rez = rez + x(i)
next  i
'вывод результата

Imports System.Console
Module Module1
    Sub Main()
        Dim i, n, m, rez As Integer
        Dim x(30) As Decimal
        WriteLine("введіть n")
        ReadLine(n)
        WriteLine("введіть m")
        ReadLine(m)
        'Ввод n и х()
        WriteLine("введіть x(i)")
        m = 0 : rez = 0
        For i = 1 To n
            If x(i) > 0 Then m = m + 1 : rez = rez + x(i)
        Next i
        'вывод результата
 
 
    End Sub
 
End Module

Imports System.Console
Module Module1
    Sub Main()
        Dim i, n, rez, m As Integer
        Dim x(30) As Decimal
 
        WriteLine("введите n")
        n = ReadLine()
        WriteLine("введите x(i)")
        For i = 1 To n
            Write("введите X({0})=", i)
            WriteLine()
            x(i) = ReadLine()
        Next i
        WriteLine()
        m = 0 : rez = 0
        For i = 1 To n
            If x(i) > 0 Then m = m + 1 : rez = rez + x(i)
        Next i
        'вывод результата
        WriteLine("Вывод результата")
        WriteLine("кiлькiсть елементiв бiльших 0 m={0}", m)
        WriteLine("сума елементiв бiльше 0 rez={0}", rez)
    End Sub
 
End Module