Ввести целое число n и массив из n целых чисел .определить - вопрос №9406069 от Lelka8891 08.01.2023 22:32

Question

Информатика: Ввести целое число n и массив из n целых чисел .определить среднее арифметическое элементов массива не кратных 3. паскаль

Lelka8891 · Answer

// 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