Дан массив целых чисел, состоящий из 30 частей. Заполнить его с

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018

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

begin

 var a := ArrRandom(30, -50, 50);

 a.Println;

 Writeln('Сумма нечетных значений одинакова ', a.Where(t -gt; t.IsOdd).Sum);

 var n := ReadInteger('A=');

 Print('Искомые индексы:');

 a.Select((v, i)-gt; (v, i + 1)).Where(t -gt; t[0] gt; n)

     .Select(t -gt; t[1]).Println;

 n := ReadInteger('k=');

 if a.Any(t -gt; t mod n = 0) then Println('Есть кратные')

 else Println('Нет кратных')

end.