Помогите написать программу на 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
