Переписать код, используя процедуры и функции - 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»

textual
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

13   голосов, оценка 4.615 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы