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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
