Question

Напишите программу
Срочно нужно !!

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

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

begin

 var a := ArrRandom(ReadInteger('n='), 5, 35);

 a.Println;

 Println('Количество четных элементов, кратных 5 равна',

   a.Where(t -> t mod 10 = 0).Count) // четное, кратное 5, кратно 5х2=10

end.