5. Серед поданих речень висловлюваннями є такі: а) Цей зошит – з інформатики.
б) Я розв'язав цю задачу.
В). Ти вмієш грати шахи на комп'ютері?
г) Інформатика – цікавий і корисний предмет.
Д) Побігли в кіно!
​

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

#include <bits/stdc++.h>
using namespace std;
int a[100001];int main(){    int n, c = 0;    cin >> n;    for(int i = 1; i <= n; ++i)    {        cin >> a[i];    }    for(int i = 1; i <= n; ++i)    {        if(a[i] < a[i + 1])        {            if(i != n)            {                c++;            }        }    }    if(c == n - 1)    {        cout << "YES";    }    else        cout << "NO";    //cout << "Hello world!" << endl;    return 0;}//sadasdasd