Question

Ввести целое число N и массив из N целых чисел .Определить среднее арифметическое элементов массива НЕ кратных 3. ПАСКАЛЬ

Answer 1

// PascalABC.NET 3.3.5

begin

 var n:=ReadInteger('n=');

 var a:=ReadArrInteger('Вводите массив:',n);

 Writeln(a.Where(x->(x mod 3<>0)).Average);

end.

Пример:

n= 5

Вводите массив: 20 15 11 45 32

21