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

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

program AverageOfMultiples;

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

begin
sum := 0;
count := 0;

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

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

end;

if count > 0 then
begin
average := sum / count;
writeln('Average of numbers divisible by both 3 and 5: ', average:0:2);
end
else
writeln('No numbers divisible by both 3 and 5 were entered.');
end.