Question

Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с любым удобным для вас способом. Найти:
сумму элементов массива, имеющих нечетное значение;
вывести индексы тех элементов, значения которых больше заданного числа А (А вводится с клавиатуры);
определить, есть ли в данном массиве положительные элементы, кратные k ( k вводится с клавиатуры)

Answer 1

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

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

begin

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

 a.Println;

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

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

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

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

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

 n := ReadInteger('k=');

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

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

end.