Найдите среднее арифметическое 5 любых чисел. В паскале с оператором цикла for
Найдите среднее арифметическое 5 любых чисел. В паскале с оператором цикла for
Гость
Ответ(ы) на вопрос:
ГостьVar n,sum,pr:real; i:integer;
Begin
Write('Введите 5чисел');
for i:=1 to 5 do begin
readln(n);
sum:=sum+n;
end;
pr:=sum/5;
Writeln('Среднее арифметическое чисел - ',pr);
end.
Не нашли ответ?
Похожие вопросы