Помогите пожалуйста с Паскалем. Вводится 15 последовательных чисел,найти среднее арифметическое четнвх чисел,кратных трем из введенных Составьте полную программу

Помогите пожалуйста с Паскалем. Вводится 15 последовательных чисел,найти среднее арифметическое четнвх чисел,кратных трем из введенных Составьте полную программу
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016 // Внимание! Если программа не работает, обновите версию! begin   var a:=ReadArrInteger('Введите 15 целых чисел',15);   var s:=a.Where(x->x.IsEven and (x mod 3=0));   if s.Count>0 then Writeln('S=',s.Average)   else Writeln('Нет элементов, удовлетворяющих условию') end. Пример Введите 15 целых чисел 2 -10 -47 -44 5 24 -6 30 1 -46 7 0 6 -2 44 S=10.8
Не нашли ответ?
Ответить на вопрос
Похожие вопросы