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

Question

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

Answer 1

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.

Comments

program srednee;
var mas:array[1..100] of real;
i:integer;b,sr:real;
begin
sr:=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.

---

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