a.Pairwise.Where(p->p[0].IsEven and p[1].IsEven).Count.Println
end.
2)
begin
var a := ArrRandom(40, 0, 10000);
a.Println;
a.Pairwise
.Where(p->(p[0] mod 10 = 4) or (p[1] mod 10 = 4))
.Count.Println
end.
3)
Минимальное четырехзначное число в восьмеричной системе - это 1000₈ = 8³₁₀ = 512₁₀. Максимальное число это 1000₁₀ = 1750₈. Следовательно, нужное десятичное число равно ближайшему меньшему к 1750₈ числу, оканчивающемуся на 4, т.е. 1744₈, что составляет 8³ + 7×8² + 4×8 + 4 = 996.
Answers & Comments
===== PascalABC.NET =====
1)
begin
var a := ArrRandom(20, 0, 10000);
a.Println;
a.Pairwise.Where(p->p[0].IsEven and p[1].IsEven).Count.Println
end.
2)
begin
var a := ArrRandom(40, 0, 10000);
a.Println;
a.Pairwise
.Where(p->(p[0] mod 10 = 4) or (p[1] mod 10 = 4))
.Count.Println
end.
3)
Минимальное четырехзначное число в восьмеричной системе - это 1000₈ = 8³₁₀ = 512₁₀. Максимальное число это 1000₁₀ = 1750₈. Следовательно, нужное десятичное число равно ближайшему меньшему к 1750₈ числу, оканчивающемуся на 4, т.е. 1744₈, что составляет 8³ + 7×8² + 4×8 + 4 = 996.
Никаких программ тут составлять не надо.