Написать программу на pascalabc создать программу: "вводится n чисел. найти среднее арифметическое всех нечетных, кратных 3 чисел.

199

379

Посмотреть ответы 2

Ответы на вопрос:

nimiilo1

Информатика

4,7(61 оценок)

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