<span>управлять компьютером можно, выбирая нужную команду из заранее заготовленных вариантов - это </span>Командная сторка
1. ручка.
2. принтер.
~~~~~~~~~~~~~
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
===== PascalABC.NET =====
begin
ReadArrInteger(ReadInteger)
.Pairwise.Count(p -> Sign(p[0]) <> Sign(p[1]))
.Println
end.
Сначала вводим длину массива, затем все его элементы.