Задача по массивам в 1С:Предприятие 8.3

[юлия_Maltseva250795]

Дана последовательность чисел. Вывести номер первого четного элемента с помощью функции Сообщить.
Нужно чтобы при нажатии на кнопку "Задача2" вывелся номер первого чётного элемента который ввёл пользователь

[LexaK]

юлия_Maltseva250795, задачка же как дважды два!
вам специально такие примитивнейшие задачки дают что бы вы хоть чуть-чуть сами думать научились!

наверно вызывает затруднение как определить что число четное?
так это просто Число на до разделить на 2 и посмотреть получился ли остаток!
если остатка нет, значит четное

остаток можно получить так
лкОстаток = лкЧисло % 2;

[юлия_Maltseva250795]

LexaK, Я знаю как определить чётное число или нет. Я не знаю как передать значения в код которые вводит пользователь и как вывести не значение, а его номер

[юлия_Maltseva250795]

Это верно или нет?
&НаКлиенте
Процедура Задача2(Команда)
Эл = ВведитеЧислаЧерезПробел;
Для Индекс = 0 По ВведитеЧислаЧерезПробел.Количество() Цикл
Если Эл % 2 = 0 Тогда
      Иначе
КонецЕсли;
КонецЦикла;
Сообщить ("Первый номер чётного элемента - " + ВведитеЧислаЧерезПробел[Индекс]));

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

[Oscar]

юлия_Maltseva250795,
Насколько я понял у Вас трудность вызывает добавление чисел, который пользователь внес в строку в массив.
Если да, то я бы попробовал сделать это таким образом:
1. Создаете массив
2. Присваиваете переменной строку, которую внес пользователь
3. Потом в цикле используя функцию СтрНайти находите первый пробел,
3а. Отсекаете первое число
3б. Заносите в массив
3с. И так далее по циклу пока функция СтрНайти не вернет 0.
4. А дальше Вам Алексей описал, что делать.

[Oscar]

Это верно или нет?
&НаКлиенте
Процедура Задача2(Команда)
Эл = ВведитеЧислаЧерезПробел;
Для Индекс = 0 По ВведитеЧислаЧерезПробел.Количество() Цикл
Если Эл % 2 = 0 Тогда
      Иначе
КонецЕсли;
КонецЦикла;
Сообщить ("Первый номер чётного элемента - " + ВведитеЧислаЧерезПробел[Индекс]));

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

Задача по массивам же. А где массив?

[LexaK]

юлия_Maltseva250795, почти правильно
если у вас версия платформы больше 8,3,6 - попробуйте такой вариант

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

&НаКлиенте
Процедура Задача2(Команда)
//Эл = ВведитеЧислаЧерезПробел;
лкМассив = СтрРазделить(ВведитеЧислаЧерезПробел, " ");
лкСообщение = "Четное число не найдено!";
Для каждого лкЗначение Из лкМассив Цикл
Если Число(лкЗначение) % 2 = 0 Тогда
лкСообщение = "Первое четное число в позиции: " + (лкМассив.Найти(лкЗначение) + 1);
Прервать;
КонецЕсли;
КонецЦикла;
Сообщить(лкСообщение);

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


[юлия_Maltseva250795]

LexaK, он выводит чётный элемент, а надо чтобы он вывел номер первого чётного элемента

[LexaK]

юлия_Maltseva250795, странно у меня по этой фразе
 "Первое четное число в позиции: " + (лкМассив.Найти(лкЗначение) + 1);
как раз позиция (какое число в строке) выводится.

в такой строке
"10,1 12 15 34"

сообщение будет
"Первое четное число в позиции: 2"


напишите какая у вас версия и совместимость платформы 1С

[юлия_Maltseva250795]

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