Даны числа b1, b2, …, b9. Определите среднее арифметическое тех из них, которые больше 10.ЯЗЫК:PASCAL
Даны числа b1, b2, …, b9. Определите среднее арифметическое тех из них, которые
больше 10.
ЯЗЫК:PASCAL
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,d:integer;
begin
writeln('введите 9 чисел ');
d:=9;
b:=0;
while (d<>0) do begin
read(a);
if (a>10) then begin b:=a+b; c:=c+1;end;
d:=d-1;
end;
writeln('среднее арифметическое ',b/c);
end.
Не нашли ответ?
Похожие вопросы