Поиск минимального элемента в массиве

[Герман Штайнер]

Здравствуйте подскажите  что неправильно написано в данном коде?

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



arr = Новый Массив (7);
 
arr[0]=9;
arr[1]=15;
arr[2]=3;
arr[3]=4;
arr[4]=5;
arr[5]=6;
arr[6]=56;


Для Каждого i Из arr Цикл
        Сообщить("Элемент массива: "+ i);
КонецЦикла;
  min = arr[0];
Для Каждого i Из arr Цикл
Если arr[i]< min Тогда
min = arr[i];
КонецЕсли;
КонецЦикла;


выдается сообщение что индекс находится за границами массива и не вычисляется минимальное значение элемента массива

[pavl_vs]

Здравствуйте подскажите  что неправильно написано в данном коде?
...
выдается сообщение что индекс находится за границами массива и не вычисляется минимальное значение элемента массива

Неправильно в качестве индекса использовать значение элемента массива; Ваша программка спотыкается на первом же шаге: массив размерностью 7, а первое значение массива, а значит и индекс 9; уже этого достаточно, чтобы никаких вычислений не происходило.

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


// Правильней будет так
arr = Новый Массив (7);
 
arr[0]=9;
arr[1]=15;
arr[2]=3;
arr[3]=4;
arr[4]=5;
arr[5]=6;
arr[6]=56;

Для Каждого i Из arr Цикл
           Сообщить("Элемент массива: " + i);
КонецЦикла;
min = arr[0];
Для Каждого i Из arr Цикл
   Если i < min Тогда
       min = i;
   КонецЕсли;
КонецЦикла;
Сообщить("------");
Сообщить("Минимальное значение: " + min);