begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
Println('Количество четных элементов на нечетных местах равно',
a.Where((v, i)-> v.IsEven and i.IsEven).Count)
end.
n= 13
20 -26 28 -45 6 -32 33 25 48 -49 28 -18 9
Количество четных элементов на нечетных местах равно 5
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
Println('Количество четных элементов на нечетных местах равно',
a.Where((v, i)-> v.IsEven and i.IsEven).Count)
end.
-----------------------------
n= 13
20 -26 28 -45 6 -32 33 25 48 -49 28 -18 9
Количество четных элементов на нечетных местах равно 5