Program z1;
const N=10;
var
i,k:integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
readln (a [i]);
for i:=1 to N do
begin
if (a [i] mod 2 = 0) then
write (a [i]);
end;
for k:=10 downto 1 do
begin
if (a [k] mod 2 = 1) then
write (a [k]);
end;
end.
PascalABC.NET
uses
System.Collections.Generic;
var
arr: List<<em>single</em>> := new List<<em>single</em>>();
i: integer;
begin
writeln('i':2, 'arr[i]':7, #13, new string('-', 9));
for i := 1 to 10 do
begin
arr.Add(Random(-5, 5));
writeln(i:2, arr[i - 1]:7);
end;
writeln(new string('-', 9));
arr.RemoveAt(3);
for i := 1 to 9 do
writeln(i:2, arr[i - 1]:7);
end.
Герой может за один ход сдвинуться в клетку, соседнюю с данной по стороне или углу (если клетка проходима). За границы карты герой выйти не может. Теперь Вася хочет положить несколько слитков золота (в одной клетке — один слиток) так, чтобы кратчайшее расстояние до них от стартовой клетки было максимальным. Сколько клеток с золотом будет на этой карте? В качестве ответа укажите одно натуральное число, например, 4.
<span>КОМЕНТАРИЙ -Для карты, изображенной на рисунке ниже ответ 7 – есть 7 клеток (правый столбец и нижняя строка карты), кратчайший путь до которых требует 2 хода. До всех остальных клеток можно дойти за 1 ход.</span>