Имеется натуральное число n.Найдите ,каких чисел больше ,чётных или нечётных ,поскаль АБС

Question

Информатика: Имеется натуральное число n.Найдите ,каких чисел больше ,чётных или нечётных ,поскаль АБС​

диана2460 · Accepted Answer

// 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.
Водномерном массиве подсчитать сумму элементов с четным индексом (сгенерировать элементы массива с д

Водномерном массиве подсчитать сумму элементов с четным индексом (сгенерировать элементы массива с д

Имеется натуральное число n.Найдите ,каких чисел больше ,чётных или нечётных ,поскаль АБС​

MOGZ ответил