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

Паскаль. На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы