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
Выводим результат
