Загрузка данных

Люди = Новый Массив(4);

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

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

Для Шаг = 0 По 3 Цикл
    Если Люди[Шаг].Вес < НаименьшийВес Тогда
        НаименьшийВес = Люди[Шаг].Вес;
        ИмяСамогоЛегкогоЧеловека = Люди[Шаг].Имя;
    КонецЕсли;
КонецЦикла;

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