Переписать код, используя процедуры и функции - 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
СОХРАНИТЬ ССЫЛКУ