Переписать код, используя процедуры и функции - Turbo Pascal
Формулировка задачи:
Дана программа, как ее написать с помощью процедур и функций, просто тему не знаю.
var i,j,h,n:integer; sr:real; begin writeln('kol-vo ychenikov'); readln(n); h:=0; sr:=0; while i<n do begin readln(j); h:=h+j; i:=i+1; end; sr:=h/n; write(sr); end.
Код к задаче: «Переписать код, используя процедуры и функции - Turbo Pascal»
function VvodAndCalcSred(n: integer): real; var i,j,h:integer; begin h:=0; sr:=0; i:=0; while i<n do begin readln(j); h:=h+j; i:=i+1; end; VvodAndCalcSred:=h/n; end; var n:integer; begin writeln('kol-vo ychenikov'); readln(n); write(VvodAndCalcSred(n)); end.
13 голосов, оценка 4.615 из 5
СОХРАНИТЬ ССЫЛКУ