Запрос Найдено всего страниц
(в тысячах)
Нитки | Иголки
630
Нитки
156
Нитки & Иголки
27

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

Многие пользователи активно используют программу PowerPoint для создания презентаций. Но мало кто знает, какие требования при этом должны выполняться, каких ошибок нужно избегать. Рассмотрим основные ошибки, которые совершает пользователь при создании презентации.
 Ошибка 1. Фон слайда не сочетается с темой презентации. И мы видим, к примеру, презентацию о революциях в России на фоне с березками и грибочками.Ошибка 2. Использован фон, который входит в набор программы PowerPoint. За многие годы существования программы PowerPoint стандартными шаблонами воспользовались тысячи людей, опубликовали свои презентации в сети, показали на выступлениях. Эти шаблоны уже просто надоели слушателям.