var
i:longint;
sr,ch: real;
begin
sr:=0;
for i := 1 to 15 do
readln(ch);
sr:=sr+ch
end;
sr := sr/15;
writeln('Ответ: ',sr);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
i:longint;
sr,ch: real;
begin
sr:=0;
for i := 1 to 15 do
begin
readln(ch);
sr:=sr+ch
end;
sr := sr/15;
writeln('Ответ: ',sr);
end.