Advertisement
Guest User

Untitled

a guest
Feb 17th, 2020
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. var n, number, counter, cache: integer;
  2.  
  3. begin
  4. readln(n);
  5. counter := 0;
  6.  
  7. Repeat
  8. readln(number);
  9. cache := cache + number;
  10. counter := counter + 1;
  11. Until n = number;
  12.  
  13. writeln(cache / counter);
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement