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

Question

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

Answer 1

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