Ребят,на компе нажал открыть через архив теперь все в архивах и ничего открыть не могу!

текста – слов ”Правда” или ”Неправда”.

порядок меньше, с вычеркнутым столбцом и строкой на пересечении которых находится наименьшее число из первой матрицы. Я нашел наименьшее число, а как дольше делать понять не могу.
Вот начало самой программы:
Sub laba9()
Dim N As Integer, a() As Integer, i As Byte, j As Byte, min As Integer, l1 As Integer, l2 As Integer
N = Val(InputBox("Введите размерность массива"))
ReDim a(N, N)
Sheets("Лист1").Select
Sheets("Лист1").Range("A1:AAA100").Clear
For i = 1 To N
For j = 1 To N
a(i, j) = Rnd * 100
Cells(i, j) = a(i, j)
Next j
Next i
min = a(1, 1)
l1 = 1
l2 = 2
For i = 1 To N
For j = 1 To N
If a(i, j) < min Then
min = a(i, j)
l1 = i
l2 = j
End If
Next j
Next i
End sub

Если поможете я потом еще баллов заработаю кину, или денюжку на мобильный

Задан числовой массив а[2,5] .Найти кол-во массивов делящихся на 5

Гбайт за 6 месяцев. На компе обнаружено сразу 4 вируса. Через какое время на 1 Гбайт памяти не останется области, не заполненной вирусами?
1) четверть месяца
2) половина месяца
3) один месяц
4) два месяца
5) три месяца

на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5. Буду очень благодарна!!!!