Найдите среднее арифметическое 5 любых чисел. В паскале с оператором цикла for

Question

49

Найдите среднее арифметическое 5 любых чисел. В паскале с оператором цикла for

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

lifeblood · Accepted Answer

85

lifeblood

19 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: