===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
Герой может за один ход сдвинуться в клетку, соседнюю с данной по стороне или углу (если клетка проходима). За границы карты герой выйти не может. Теперь Вася хочет положить несколько слитков золота (в одной клетке — один слиток) так, чтобы кратчайшее расстояние до них от стартовой клетки было максимальным. Сколько клеток с золотом будет на этой карте? В качестве ответа укажите одно натуральное число, например, 4.
<span>КОМЕНТАРИЙ -Для карты, изображенной на рисунке ниже ответ 7 – есть 7 клеток (правый столбец и нижняя строка карты), кратчайший путь до которых требует 2 хода. До всех остальных клеток можно дойти за 1 ход.</span>
Да,нужно .Чертишь,считаешь,и записываешь
После выполнения фрагмента прграммы x будет равен 67
Как я понимаю а)а=53 и б)b= 67 - значения переменных а и b соответственно
в) а=50 г) b=106
При а=53 и b=67 x=120
При а=50 и b=106 x= - 324