---

Задание №30
Условие: Ввести от пользователя 5 чисел, найти их сумму и вывести результат. Решить задачу с использованием массива и цикла Пока.
Числа = Новый Массив(5);

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

СуммаЧисел = 0;
Шаг = 0;
Пока Шаг <= 4 Цикл
    СуммаЧисел = СуммаЧисел + Числа[Шаг];
    Шаг = Шаг + 1;
КонецЦикла;

ОткрытьЗначение("Сумма чисел равна " + СуммаЧисел);

Задание №31
Условие: Ввести 10 чисел и найти их произведение с использованием массива и цикла Пока.
Числа = Новый Массив(10);

Шаг = 0;
Пока Шаг <= 9 Цикл
    ВвестиЧисло(Числа[Шаг]);
    Шаг = Шаг + 1;
КонецЦикла;

ПроизведениеЧисел = 1;
Шаг = 0;
Пока Шаг <= 9 Цикл
    ПроизведениеЧисел = ПроизведениеЧисел * Числа[Шаг];
    Шаг = Шаг + 1;
КонецЦикла;

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

Задание №32
Условие: Ввести от пользователя 5 чисел, найти наименьшее из них и вывести результат. Реализовать через цикл Пока.
МассивЧисел = Новый Массив(5);

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

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

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

Задание №33
Условие: Ввести от пользователя 7 чисел, найти наибольшее из них и вывести результат. Реализовать через цикл Пока.
МассивЧисел = Новый Массив(7);

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

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

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

Задание №34
Условие: Ввести имена и возраст трех человек. Сохранить информацию в структуры внутри массива, найти самого старшего человека и вывести его данные. Реализовать через цикл Пока.
Люди = Новый Массив(3);

Шаг = 0;
Пока Шаг <= 2 Цикл
    Люди[Шаг] = Новый Структура("Имя, Возраст");
    ВвестиСтроку(Люди[Шаг].Имя);
    ВвестиЧисло(Люди[Шаг].Возраст);
    Шаг = Шаг + 1;
КонецЦикла;

ИмяСамогоСтаршегоЧеловека = Люди[0].Имя;
НаибольшийВозраст = Люди[0].Возраст;

Шаг = 1;
Пока Шаг <= 2 Цикл
    Если Люди[Шаг].Возраст > НаибольшийВозраст Тогда
        НаибольшийВозраст = Люди[Шаг].Возраст;
        ИмяСамогоСтаршегоЧеловека = Люди[Шаг].Имя;
    КонецЕсли;
    Шаг = Шаг + 1;
КонецЦикла;

ОткрытьЗначение("Самый старший человек - " + ИмяСамогоСтаршегоЧеловека + ". Ему " + НаибольшийВозраст + " лет.");