В одномерном массиве найти максимальное кратное 10 число и его номер

[julia89]

 Подскажите, пожалуйста,что нужно сделать чтобы программа выводила номер этого числа!!!

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

Перем Кол, ЧислоХ;

НашМассив = Новый Массив;
ВвестиЧисло(Кол, "Введите количество элементов массива");
Для Сч = 1 По Кол Цикл
ВвестиЧисло (ЧислоХ, "Введите элемент массива");
НашМассив.Добавить(ЧислоХ);
КонецЦикла;

Крат10 = НашМассив[0];
Для Сч = 1 По Кол Цикл
     Если НашМассив[Сч-1]%10 = 0 Тогда
Крат10 = НашМассив[Сч-1];
     КонецЕсли;
КонецЦикла;

МаксКрат10 = Крат10 ;

Для Сч = 1 По Кол Цикл
Если ЧислоХ > Крат10 Тогда
МаксКрат10 = ЧислоХ ;
КонецЕсли;
КонецЦикла;
Предупреждение("Максимальное кратное 10 число -  "  + МаксКрат10 );


[pavl_vs]

Подскажите, пожалуйста,что нужно сделать чтобы программа выводила номер этого числа!!!

Ваша программа не выполняет и основной задачи, т.е. она не находит того самого числа - неверно написаны условия и определения во втором (основном) цикле.
Позицию искомого числа определяем в основном цикле (последний цикл в Вашем варианте не нужен) и программка выглядит следующим образом.

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


Перем Кол, ЧислоХ;
НашМассив = Новый Массив;
ВвестиЧисло(Кол, "Введите количество элементов массива");
Для Сч = 1 По Кол Цикл
    ВвестиЧисло (ЧислоХ, "Введите элемент массива");
    НашМассив.Добавить(ЧислоХ);
КонецЦикла;
Индекс = 0;    // позиция кратного 10 числа
МаксКрат10 = 0;
Для Сч = 1 По Кол Цикл
    Если НашМассив[Сч-1]%10 = 0 Тогда
        Крат10 = НашМассив[Сч-1];
        Если НашМассив[Сч-1] > МаксКрат10 Тогда
            МаксКрат10 = НашМассив[Сч-1];
            Индекс = Сч;
        КонецЕсли;
    КонецЕсли;
КонецЦикла;

Предупреждение("Максимальное кратное 10 число -  "  + МаксКрат10 +
", номер: " + Индекс);


[юлия_Maltseva]

Помогите пожалуйста составить код на 1С
Задача: Дан массив натуральных чисел (можно в коде все задать). Найти минимальный из элементов, кратных числу К. K ввести с клавиатуры в поле формы. Результат вывести с помощью окна сообщения Сообщить.