РЕШИТЬ ТЕСТ ПО ИНФОРМАТИКЕ ПРАВИЛЬНО

? заменяет любой один символ
* заменяет любое чколичество любых символов

Маске ?l*ck.*t? удовлетворяют имена файлов, вторая буква имени которых l, имя заканчивается на ck, а предпоследняя буква расширения t. 

Из перечня имён выберите (отметьте галочкой) те, которые удовлетворяют маске ?l*ck.*t?
а) click.txt — предпоследняя буква расширения x
б) black.ppt — предпоследняя буква расширения p 
в) lock.sts — вторая буква имени o
г) clock.tt 7  — предпоследний символ расширения пробел
д) blink.uta — предпоследний символ имени n
е) applock.stu — вторая буква имени p
ж) blocker.htm — имя оканчивается на er
✔) elpack.ty
и) blocker.html — имя оканчивается на er

Sub m1()
    Cells.Clear
    Dim n As Integer, i As Integer, s As Integer
    n = InputBox("n = ")
    Cells(1, 1).Value = "n = " + Str(n)
    ReDim a(1 To n)
    For i = 1 To n
        a(i) = InputBox("a(" + Str(i) + ")")
    Next i
    Cells(2, 1).Value = "Исходный массив"
    Range(Cells(3, 1), Cells(3, n)).Value = a
    s = 0
    For i = 1 To n
        s = s + a(i)
    Next i
    Cells(4, 1).Value = "s = " + Str(s)
    Cells(5, 1).Value = "Полученный массив"
    For i = 1 To n
        a(i) = a(i) + s
    Next i
    Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub