Язык - Pascal. даны натуральное число n и последовательностьa1, ..., an. Составьте программу, которая находит среднее арифметическое тех элементов последовательности, которые кратны 3 и не кратны 9

Question

Информатика

Викула

1 февраля, 09:45

Язык - Pascal. даны натуральное число n и последовательностьa1, ..., an. Составьте программу, которая находит среднее арифметическое тех элементов последовательности, которые кратны 3 и не кратны 9

+4

Ответы (1)

Знаете ответ на вопрос?

Андроника · Answer 1

Var

n, i, s, a, k: integer;

begin

readln (n) ;

s : = 0;

k : = 0;

for i : = 1 to n do

begin

read (a) ;

if (a mod 3 = 0) and (a mod 9 0) then

begin

inc (k) ;

inc (s, a) ;

end;

end;

write (s div k) ;

end.