Pascal нужно написать программу с алгоритмом 3.1 и 3.2 , 6
Answers & Comments
Pro100Cool
Var n, i, sum, kol, age :integer; sr :real; begin sum:= 0; kol:= 0; readln(n); for i:= 1 to n do begin readln(age); sum:= sum + age; inc(kol); end; sr:= sum/kol; writeln(sr); end.
Answers & Comments
begin
sum:= 0; kol:= 0; readln(n); for i:= 1 to n do begin readln(age); sum:= sum + age; inc(kol); end; sr:= sum/kol; writeln(sr);
end.