Дан массив из 100 элементов . Числа трехзначные . Вычислить среднее арифметическое чисел кратных 9

program srednee;var mas:array[1..100] of real;i:integer;b,sr:real;beginsr:=0; for i:= 1 to 100 do mas[i]:=Random(899)+100; for i:=1 to 100 do begin b:=mas[i]/9; if Frac(b)=0 then begin sr:=sr+b; end; end;Writeln('Среднее арифметическое чисел кратных 9 = ',sr) end.

Так лучше будет

program srednee;var mas:array[1..100] of real;i:integer;b,sr:real;beginsr:=0; for i:= 1 to 100 do   mas[i]:=Random(899)+100; for i:=1 to 100 do  begin   b:=mas[i]/9;   if Frac(b)=0    then     begin     sr:=sr+b;    end; end;Writeln('Среднее арифметическое чисел кратных 9 = ',sr) end.