Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 13:44

Помогите написать код

Автор jenya1111, 14 июл 2014, 11:54

0 Пользователей и 1 гость просматривают эту тему.

jenya1111

Есть такая задача
Массив = Новый Массив(7);
Массив[0]=5;
Массив[1]=-5;
Массив[2]=6;
Массив[3]=1;
Массив[4]=6;
Массив[5]=6;
Массив[6]=4;

необходимо сообщить номер наименьшего числа

ls600

самый просотой пример,  допиши код  Сообщить(Массив.Получить(1));

jenya1111

Не понятно. Можно подробнее?

ls600

Цитата: ls600 от 14 июл 2014, 12:49
самый просотой пример,  допиши код  Сообщить(Массив.Получить(1));
в итоге Вам система выдаст сообщение -5. 

jenya1111

Блин извини. Мы просто друк друга не так поняли. Мне нужно чтобы программа мне показала не значение наименьшего индекса а его если можно можно так выразиться "порядковый номер"

LexaK

тогда немного по другому

Сообщить("Номер: " + Массив.Найти(-5));

я проверил, на вашем массиве, все работает! просто супер!
1С рулит! :D
если помогло нажмите: Спасибо!

jenya1111

Спасибо все получилось

pavl_vs

Цитата: jenya1111 от 14 июл 2014, 14:05
Спасибо все получилось
Что-то непонятно что же "получилось". Я, например, понял задачу как "найти минимальное значение и сообщить его номер (или индекс)".
Задача в моем понимании решается так:


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

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

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


В окне сообщения Вы получите:
- массив;
и через разделитель
- Индекс мин. значения: 1;
- Минимальное значение: -5.
Если нужен номер - добавьте к индексу "1".

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск