---

МассивЧисел = Новый Массив(5);

Для Шаг = 0 По 4 Цикл
    ВвестиЧисло(МассивЧисел[Шаг]);
КонецЦикла;

НаименьшееЧисло = МассивЧисел[0];

Для Шаг = 0 По 4 Цикл
    Если МассивЧисел[Шаг] < НаименьшееЧисло Тогда
        НаименьшееЧисло = МассивЧисел[Шаг];
    КонецЕсли;
КонецЦикла;

ОткрытьЗначение("Наименьшее из введенных чисел равно " + НаименьшееЧисло);

Не

МассивЧисел = Новый Массив(7);

Для Шаг = 0 По 6 Цикл
    ВвестиЧисло(МассивЧисел[Шаг]);
КонецЦикла;

НаибольшееЧисло = МассивЧисел[0];

Для Шаг = 1 По 6 Цикл
    Если МассивЧисел[Шаг] > НаибольшееЧисло Тогда
        НаибольшееЧисло = МассивЧисел[Шаг];
    КонецЕсли;
КонецЦикла;

ОткрытьЗначение("Наибольшее из введенных чисел равно " + НаибольшееЧисло);