PascalABC.NET
1)
begin
ArrRandom(12, 0, 10).Where(x -> x > 5).Sum.Print
end.
2)
ReadArrInteger('Введите массив:', 6).Where(x -> x.IsEven).Count.Print
PascalABC.NET
1)
begin
ArrRandom(12, 0, 10).Where(x -> x > 5).Sum.Print
end.
2)
begin
ReadArrInteger('Введите массив:', 6).Where(x -> x.IsEven).Count.Print
end.