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

var

a, i, sum, y : integer; / / объявляем переменные целочисленного типа.

begin

a : = 1; / / нужно для выполнения цикла while.

writeln ('введите последовательность положительных чисел, окончание ввода - число 0:');

while a 0 do / / начало цикла.

begin

readln (a); / / считываем число, введенное с клавиатуры.

if ((a mod 3 = 0) and (a mod 5 = 0) and (a 0)) then / / проверяем кратность числа 3 и 5.

begin

sum : = sum + a; / / считаем сумму чисел.

y : = y + 1; / / считаем количество чисел.

end;

end;

write ('Среднее арифметическое произведение чисел равно: ', round (sum / y, 2));

end.