Задача 4: Американские горки Аттракцион «Американские горки» представляет собой рельсовый трек, размещённый на опорах. Известна высота каждой опоры. Для рекламы аттракциона необходимо выделить один из его фрагментов (несколько подряд идущих опор с рельсовым треком) световой подсветкой. При этом необходимо выделить такой фрагмент трека, на котором была бы «горка» то есть на выделенном участке трека была бы точка, которая находилась бы строго выше начала и строго выше конца выделенного фрагмента трека. Владелец аттракциона для экономии хочет найти подходящий участок минимальной длины, удовлетворяющий условию наличию «горки» на этом участке. Входные данные Первая строка входных данных содержит число N – количество опор аттракциона. Следующие N строк содержат информацию о высотах опор при движении от начала к концу аттракциона. Все числа натуральные, не превосходящие 105. Выходные данные Программа должна вывести два числа – номер первой и последней подходящей опоры. Опоры нумеруются числами от 1 до N. Если фрагмента, удовлетворяющего условиям, не существует, программа должна вывести одно число 0. Если подходящих ответов несколько, нужно вывести любой из них. Система оценивания Решение, правильно работающее только для случаев, когда все входные числа не превосходят 100, будет оцениваться в В будет оцениваться решение, правильно работающее, когда все числа не превосходят 105
Ответы
Var
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сколько команд-действий у исполнителя Чертежник? 35 6 9 12
Автор: Ilin1022
Нарисуйте в pascal abc крунлые часы со стрелками (цифры не надо )
Автор: fancy-decor67
Как записывают относительное, абсолютное и смешанное ссылка на ячейку B2
Автор: matveevaev81
Из каких двух блоков состоит веб страница?
Автор: es196
P =NP
Объяснение:
создаем переменую х и у
и содаем перемную х 1 и у1
P равно х и игрек
NP равно х 1 и у1
теперь P =NP
проверяем в системе кординат например 8 на 8
мы видим равенство класов
смотри мы можем сделать так
допустим это книга с пронумероваными страницами
каждая страница собщаеть какой диапазон значение на даном поле
но если мы будем сравнивать первая клетка и каждую последущую перебором это будет долго
мы можем наложить поле на поле и проверить сразу два значения и сравнить их отельно
то есть найдя на страничке список номеровмы можем сразу выводить значения из поля и передать еще одной переменой проверить были совпадения или нет