1.
ответы:
a) 212
б) 1112
2.
ответ: 2
begin
var a := ReadArrInteger(10);
Println('Кол-во двухзначных, начинающихся нечетной цифрой:',
a.Where(t -> Abs(t).InRange(10, 99) and Abs(t div 10).IsOdd).Count)
end.
№2begin
var a := ArrRandom(20, -100, 100);
a.Println;
a.Incremental((p,q)->Abs(p-q)).Max.Println
end.
Пример-63 -2 94 93 71 43 -55 0 80 -39 -68 46 -91 -63 -47 -97 3 -59 64 -31
137
№3begin
var a := ReadArrInteger(10);
Println('Сумма чисел, начинающихся на цифру 5, равна:',
a.Where(t -> Abs(t).ToString[1]='5').Sum)
end.
