СРОЧНО, помогите пожалуйста!), заранее спасибо! В массиве подсчитать сумму элементов,...

Question

СРОЧНО, помогите пожалуйста!), заранее спасибо!
В массиве подсчитать сумму элементов, которые не делятся на 7 без остатка. (Элементов массива:7.)

Answer 1

//PascalABC.NET 3.1 сборка 1239
begin
    var a := ArrRandom(7, -50, 50);
    a.Println;
    Println(a.Count(x -> x mod 7 <> 0));
end.