Question

В одномерном массиве из 25 целочисленных элементов, определить:
1) сумму элементов, кратных 3;
2)кол-во эл-в, стоящих на местах кратных 5

Answer 1

// PascalABC.NET

begin

 var a := ArrRandom(25, -99, 99);

 a.Where(p -> p mod 3 = 0).Sum.Println;

 a[4::5].Count.Print

end.