Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var n, number, counter, cache: integer;
- begin
- readln(n);
- counter := 0;
- Repeat
- readln(number);
- cache := cache + number;
- counter := counter + 1;
- Until n = number;
- writeln(cache / counter);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement