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

Код 1С, Помогите )

Автор Сергей Беликов, 10 янв 2020, 00:45

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

Сергей Беликов

Не могу понять как найти максимум в заштрихованной области двумерного массива.
Задание 692 г - помогите пожалуйста, а то меня порешают на зачёте :bleh:

Вот так я создал массив, заполнил его рандомными числами и вывел :
ГСЧ = Новый ГенераторСлучайныхЧисел();
N = 0;
I = 0;
ВвестиЗначение ( N, "Введите значение" );
//ВвестиЗначение ( I, "Введите значение" );
I = N;
  М = Новый Массив(N, I);

  Для н = 0 по М.ВГраница() Цикл
     ВнутреннийМассив = М[н];
     Для к = 0 по ВнутреннийМассив.ВГраница() Цикл
        ВнутреннийМассив[к]=ГСЧ.СлучайноеЧисло(0, 200) - 100;
     КонецЦикла;
  КонецЦикла;
     Для Каждого ЭлементаМассива из М Цикл
    СтрокаВывода = "";
   Для Каждого ЭлементаМассиваВнут из ЭлементаМассива Цикл
     СтрокаВывода = СтрокаВывода + " " + ЭлементаМассиваВнут;
   КонецЦикла;
   Сообщить(СтрокаВывода);
  КонецЦикла;

АлександрВладимирович

y = N - 1;

x0 = 0;
x1 = N - 1;

Результат = М[y][x0];

Пока x0 <= x1 Цикл

Для x = x0 По x1 Цикл

Если М[y][x] > Результат Тогда
Результат = М[y][x];
КонецЕсли;

КонецЦикла;

x0 = x0 + 1;
x1 = x1 - 1;

y = y - 1;

КонецЦикла;

Сообщить(Результат);

Теги:

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

Рейтинг@Mail.ru

Поиск