1. Найти среднее арифметическое двузначных чисел кратных 7

2. Найти среднее арифметическое первых 10 чисел делящихся на 5

(в паскале)

Begin

var m, u, p, t:integer;

for var i:=10 to 99 do

if i mod 7 = 0 then

begin

m:=m+i; u:=u+1;

end;

Writeln ('Среднее чисел которые дклятся на 7=', m/u) ;

for var i:=1 to 99 do

if i mod 5 = 0 then

begin

p:=p+i; t:=t+1;

if t > 10 then break;

end;

Writeln ('Среднее чисел которые дклятся на 5=', p/t) ;

end.