Помогите написать программу на PascalABC Создать программу: "Вводится n чисел. Найти среднее арифметическое всех нечетных, кратных 3 чисел.
Помогите написать программу на PascalABC
Создать программу: "Вводится n чисел. Найти среднее арифметическое всех нечетных, кратных 3 чисел.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var n:=ReadInteger('n=');
var s:=0;
var k:=0;
var m:integer;
for var i:=1 to n do begin
Read(m);
if Odd(m) and (m mod 3 = 0) then begin
s+=m; Inc(k)
end
end;
if k>0 then Writeln(s/k)
else Writeln('Нет чисел, удовлетворяющих условию')
end.
Тестовое решение:
n= 10
6 3 12 15 -9 11 0 14 42 11
3
Не нашли ответ?
Похожие вопросы