Felokus
7 год назад
Помогите пожалуйста с Паскалем. Вводится 15 последовательных чисел,найти среднее арифметическое четнвх чисел,кратных трем из введенных
Составьте полную программу
ОТВЕТЫ
Saubakepe
Jul 16, 2019
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(Введите 15 целых чисел,15);
var s:=a.Where(x-gt;x.IsEven and (x mod 3=0));
if s.Countgt;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
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(Введите 15 целых чисел,15);
var s:=a.Where(x-gt;x.IsEven and (x mod 3=0));
if s.Countgt;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
212
