Найти среднее арифметическое N-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. В паскале.

Предыдущий
вопрос Следующий
вопрос

program AverageOfMultiples;

va
N, i, number: integer
sum, count: integer
average: real;

begi
sum := 0
count := 0;

write('Enter the number of values: ')
readln(N);

for i := 1 to N d
begi
write('Enter number ', i, ': ')
readln(number);

end;

if count > 0 the
begi
average := sum / count
writeln('Average of numbers divisible by both 3 and 5: ', average:0:2)
en
els
writeln('No numbers divisible by both 3 and 5 were entered.')
end.