Question

В одномерном массиве подсчитать сумму элементов с четным индексом (сгенерировать элементы массива с помощью датчика случайных чисел). В одномерном массиве вывести все элементы массива, которые меньше пяти (сгенерировать элементы массива с помощью датчика случайных чисел; кол-во элементов массива введите с клавиатуры). В одномерном массиве подсчитать сумму всех элементов массива, оканчивающихся на 3 (сгенерировать элементы массива с помощью датчика случайных чисел; кол-во элементов массива введите с клавиатуры).

Answer 1

// 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.