Массивы и циклы

[SHARAYOB]

Добрый вечер! Помогите новичку, разбираюсь с массивами, появилась задача: Создал массиви вывел значения от 1 до 1000, теперь нужно написать код чтоб найти максимальное и минимальное значение и показать их в сообщении!

[angelivoin]

Все просто. Перебираем массив и если массив>мах тогда мах=массив если массив<мин тогда
мин=массив и в итоге найдем два числа мак и мин.

[дфтын]

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

Макс(элементымассивачереззапятую);
минимум аналогично
можно еще в запрос загнать..

[SHARAYOB]

Спасибо большое за помощь! Я приблизительно понимал как в теории сделать, но не понимаю как описать все это дело в цикле!

[Luzer1C]

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

МаксЭлемент = 0;
Для каждого ЗначениеМассива Из Массив Цикл
    Если ЗначениеМассива.ИмяПоказателя > МаксЭлемент Тогда
        МаксЭлемент = ЗначениеМассива.ИмяПоказателя;
    КонецЕсли;
КонецЦикла;
Такая простая хрень. С минимумом примерно так же.
Ну  это код для начинающих лузеров.

[cska-fanat-kz]

ЗначениеМассива.ИмяПоказателя

что за "ИмяПоказателя"?
"Если ЗначениеМассива > МаксЭлемент Тогда"
и все...

[Luzer1C]

Точно. Главное суть решения.

[SHARAYOB]

Спасибо всем большое за помощь!

[LexaK]

как вариант, вот еще простой и понятный алгоритм, с возможными проверками

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



Процедура АнализМассива(ВашМассив)

//проверка на то что это вообще массив
Если ТипЗнч(ВашМассив) = Тип("Массив") Тогда
//это массив

Если ВашМассив.Количество()=0 Тогда
//пустой массив, сообщаем и ничего не делаем
Сообщить("Пустой массив.");

иначе
//начальное значение переменных
//если в массиве только одно значение,
//оно является одновременно и минимальным и максимальным
    МинЗнч = ВашМассив[0];
    МаксЗнч = ВашМассив[0];

Для каждого лкЗнч Из ВашМассив Цикл
МинЗнч = Мин(МинЗнч, лкЗнч);
МаксЗнч = Макс(МаксЗнч, лкЗнч);
КонецЦикла;

Сообщить("Минимальное значение: " + МинЗнч);
Сообщить("Максимальное значение: " + МаксЗнч);

КонецЕсли;

Иначе
//это не массив
Сообщить("Параметр - не массив!");
КонецЕсли;

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