Паскаль.
На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.

vark, i:integer;SrAr:real; begink:=0;s:=0;for i:=100 to 300 doif i mod 10=0 then   begin  k:=k+1;  s:=s+i;  end; SrAr:=s/k;writeln(Sr:5:2);end.