Advertisement
Guest User

Untitled

a guest
Feb 17th, 2020
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. var n, number, cache: integer;
  2. var stop: boolean;
  3.  
  4. begin
  5. readln(n);
  6. stop := false;
  7.  
  8. while stop = false do
  9. begin
  10. readln(number);
  11. cache := cache + number;
  12.  
  13. if n = number Then
  14. stop := true;
  15. end;
  16. writeln(cache / n);
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement