Дан массив из 100 элементов . Числа трехзначные . Вычислить среднее арифметическое чисел кратных 9
Дан массив из 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.
Не нашли ответ?
Похожие вопросы