Переписать код, используя процедуры и функции

@maxworl · Регистрация: 12.12.2012

Author24 — интернет-сервис помощи студентам

Дана программа, как ее написать с помощью процедур и функций, просто тему не знаю.

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.

@Arigato · 21.12.2013, 01:58

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.

	21.12.2013, 01:58