Төменде берілген сөйлемдегі 1 жəне 2 деген сандардың қолданылу мақсатың анықтаңыз.Компьютердің құрылғылары негізгі жəне қосымша болып бөлінеді

Sub m2()
    Cells.Clear
    Dim n As Integer, i As Integer, min As Integer
    n = InputBox("n(>5) = ")
    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
    min = a(1)
    For i = 2 To n
        If a(i) < min Then min = a(i)
    Next i
    Cells(4, 1).Value = "min = " + Str(min)
    Cells(5, 1).Value = "Полученный массив"
    For i = n - 4 To n
        a(i) = min
    Next i
    Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub

Жили собі два півники.один працьовитий,а другий ледар.колись завелась там лесичка. є перший,а другому всеодно.нічого мені вона не зробить.потім настала ніч.всі позасинали.а крадійка ока не зімкнула,крадеться непомітно до ледаря.цап! біжить перекидається.другий півник за нею.втекла,нічого за мною повернеться.він змайстрував пастку.чує крадеться,в раз і вона у клітці.питає: -де півник? за подвір*ям відпусти мене,а я заберуся звідсіля.побіг півник визволив ледаря й мовив: -ось бачиш ти на печі грівся із бідою стрівся.зрозумів все ледарь і став працьовитим.