Ответ: 101.5

Решение:

В прикрепленном файле (Python 3.8)

Ответ:

• begin
• (1..199).Where(x -> x mod 7 = 0).Average.Print
• end.

или

• var i,s,n: integer;
• begin
• while i+7<200 do
• begin
• i := i + 7;
• s := s + i;
• n := n + 1;
• end;
• write(s/n);
• end.

Пример работы: