Вопрос по 1С:Предприятие 8.3, учебная версия

[Oscar]

юлия_Maltseva250795,
Не знаю насколько это красиво но наверное так:

Код Выделить Развернуть

&НаКлиенте
Процедура Задача4(Команда)
 
   кМассив = СтрРазделить (ВведитеЧислаЧерезПробел, " ");
   Колво = кМассив.Количество() - 1;
   Для Счётчик = 1 по  Колво Цикл
    кМассив[Счётчик] = кМассив[Счётчик] * 3;
    Счётчик=Счётчик+2;
    Если Счётчик > Колво Тогда
     Прервать;
    КонецЕсли;
   КонецЦикла;   

КонецПроцедуры


[юлия_Maltseva250795]

Oscar, всё равно ничего не выводит

[LexaK]

юлия_Maltseva250795, попробуйте такой код

Код Выделить Развернуть

&НаКлиенте
Процедура Задача4(Команда)
//пример
//ВведитеЧислаЧерезПробел = "1 2 1 2 1 2 1";
//выполняем набор проверок
Если ПустаяСтрока(ВведитеЧислаЧерезПробел) Тогда
ПоказатьПредупреждение(,"Необходимо ввести стрку с числами через пробел.",20);
Возврат;
КонецЕсли;

лкМассив = СтрРазделить(ВведитеЧислаЧерезПробел, " ");

Счетчик = 1;
Пока Счетчик < лкМассив.Количество() Цикл
Попытка
    лкМассив[Счетчик] = лкМассив[Счетчик] * 3;
Исключение
//может быть по ошибке введен не число, сообщаем об этом
    лкМассив[Счетчик] = "<НеЧисло>" + лкМассив[Счетчик];
КонецПопытки;
Счетчик = Счетчик + 2;
КонецЦикла;   

Сообщить(СтрСоединить(лкМассив, " "));

КонецПроцедуры


[Oscar]

Oscar, всё равно ничего не выводит

Как строку в виде чисел вводили.
И какая ошибка выходит?