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

//1varaverage:real;i,cnt:integer;BeginFor i:= 10 to 99 do  if (i mod 7 = 0) then     begin      average := average + i;      inc(cnt);    end;average:=average / cnt;Writeln(average);end.//2varaverage:real;i,cnt:integer;Begini:= 0;cnt:= 0;while (true) do begin  inc(i);  if (i mod 5 = 0) then    inc(cnt);  average:=average + i;  if (cnt = 10) then    breakend;average := average / 10;Writeln(average);end.