Пометка в списке значений

[inoifantom]

Добрый день! Помогите с простой задачкой.
Есть список значений. Код:
Для Каждого Элемент Из СписокЗданий Цикл
      Если  Элемент.Пометка Тогда
         ПолучитьДанные=Элемент.Значение;
         СсылкаНаЗдание=ПолучитьДанные.Ссылка;
         ОбъектЗдание=СсылкаНаЗдание.ПолучитьОбъект();
      КонецЕсли;
КонецЦикла;
Как сделать, чтобы если ни 1 элемент не помечен, пометились все элементы???
Спасибо.

[chuevsf]

Счетчик = 0;
Для Каждого Элемент Из СписокЗданий Цикл
      Если  Элемент.Пометка Тогда
Счетчик = Счетчик +1;
         ПолучитьДанные=Элемент.Значение;
         СсылкаНаЗдание=ПолучитьДанные.Ссылка;
         ОбъектЗдание=СсылкаНаЗдание.ПолучитьОбъект();
      КонецЕсли;
КонецЦикла;

Если Счетчик = 0 тогда
Для Каждого Элемент Из СписокЗданий Цикл
//---- А тут помечаешь  всё
КонецЦикла;
КонецЕсли

P.S. Ну это первое что в голову пришло.

[chuevsf]

А можно было Счетчик сделать булевым, тогда красивее получилось бы.

[inoifantom]

Спасибо)

[chuevsf]

Ну уж если действительно помог и желаете сказать "Спасибо", то достаточно клинкуть по ссылке "Сказать СПАСИБО".