Чрезвычайно срочно необходимо сделать!!! - VB

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

Задание 1 Дан массив a1, … , a20. Сформировать новый массив b1, ... , b20 , у которого вначале следуют все положительные элементы массива А, затем все отрицательные Задание 2 Даны массивы H1, ... , H12 - шифры постов ГАИ; F1, ... , F12 - фамилий дежурных на постах; N1, ... , N12 - число ДТП, зарегистрированных за смену. Вывести список постов с указанием фамилий дежурных, зарегистрировавших от пяти и выше ДТП. Указать пост с минимальным числом ДТП. Задание 3 В матрице найти сумму и произведение элементов главкой диагонали. Умножать элементы нечетных строк на полученную сумму, а элементы четных столбцов - на полученное произведение.

Решение задачи: «Чрезвычайно срочно необходимо сделать!!!»

textual
                            Листинг программы 
                        

                            Dim a(19) As Integer
    Dim b(19) As Integer
    Dim index as Integer = 0
    For i As Integer = 0 To 19
        A(i) = Val(inputbox("Введите число"))
    Next
    
    For j As Integer = 0 To 19
        If a(j) > 0 Then
B(index) = a(j)
index + = 1
        End If
    Next
    
    For t As Integer = 0 To 19
        If A(t) < 0 Then
            B(index) = A(t)
            index + = 1
        End If
    Next
    
    For r As Integer = 0 To 19
        Msgbox(b(r)).ToString
    Next
                        