Задача 5. Створити список з 10 випадкових елементів (від -10 до 10). Надрукувати елементи списку у зворотньому порядку

1)194:
Пример:4199(Сумма нечетных=19,сумма четных=4.В порядке убывания)"+"
2)1913(Должна быть хотя бы одна цифра четная)"-"
3)1420(Цифры не в порядке убывания.) "-"
4)1118:
Нам нужно получить четное число 18:
a)Пусть нечетные цифры = 9,9.Но тогда у нас остались четные числа,но мы никак не сможем получить 11.
b)Чтобы получить 18 из четных чисел нужно,чтобы числа = 8,8,4(максимум),но тогда мы не сможем получить 11,т.к. максимальная цифра=9.Значит "-"
5)1212
Пример:5766(Сумма четных=12(6+6),сумма нечетных=12(5+7)) "+"
6)205
Нам нужно получить 20:
Мы не сможем получить 20 из нечетных чисел,т.к. из нечетных чисел нам нужно получить 5.
Максимальные цифры из четных равны=8,8,4.(20).
И одна цифра нечетная:5.Пример:8548 "+"
7)420:
Пусть нам нужно получить 42,но мы не сможем получить данную сумму,т.к. максимум=36(9,9,9,9) "-"
8)294:
Пусть одна из цифра=4,т.е. остальные у нас нечетные.Опять же максимальная сумма=27(9,9,9).Значит "-"
9)55:
Должна быть хотя бы одна цифра четная."-"
ответ: 3 числа

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018

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

// Программа №1

begin

   var mas:=ArrRandom(20,-99,99); mas.Println;

   Writeln('сумму  с четным индексом=',mas.Where((v,i)->i mod 2 =0).Sum);

end.

// Программа №2

begin

   var n:=readinteger('n='); 

   var mas:=ArrRandom(n,-99,99); mas.Println;

   Writeln('элементы < 5');

   mas.Where(t->t<5).Println;

   end.

//Программа №3

begin

   var n:=readinteger('n='); 

   var mas:=ArrRandom(n,-99,99); mas.Println;

   Write('Сумма=');

   mas.Where(t->t mod 10 = 3).Sum.Println;

   end.