Ввести 8 случайных чисел в интервале от 15 до 45 и найти сумму и количество чисел кратных 3.

program z1;

var i,a,s,k:integer;

begin

randomize;

s:=0;

k:=0;

write ('Числа: ');

for i:=1 to 8 do

begin

a:=random(31)+15;

if a mod 3 = 0 then

begin

s:=s+a;

k:=k+1

end;

write (a,' ')

end;

writeln;

if k = 0 then write ('Чисел кратных 3 не было')

else

begin

writeln('Количество чисел кратных 3 равно ',k);

write('Сумма чисел кратных 3 равна ',s)

end

end.

Объяснение:

Задаём 8 случайных чисел из интервала [15; 45]

Делаем проверку на кратность 3

Выводим результат