1. Массив из 10 чисел заполнить с клавиатуры. Определить сколько двузначных чисел...

Question

1. Массив из 10 чисел заполнить с клавиатуры. Определить сколько двузначных чисел начинаются на нечётную цифру. 2. Массив из 20 чисел заполнить случайными числами [-100, 100]. Найти величину максимального отклонения (модуля разности) между любыми двумя элементами массива. 3. Массив из 10 чисел заполнить с клавиатуры. Определить сумму чисел, начинающихся на цифру 5.

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

№1

begin

 var a := ReadArrInteger(10);

 Println('Кол-во двухзначных, начинающихся нечетной цифрой:',

     a.Where(t -> Abs(t).InRange(10, 99) and Abs(t div 10).IsOdd).Count)

end.

№2

begin

 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

№3

begin

 var a := ReadArrInteger(10);

 Println('Сумма чисел, начинающихся на цифру 5, равна:',

     a.Where(t -> Abs(t).ToString[1]='5').Sum)

end.