fork download
copy 
  1. var
  2. 	ar: array[1..100] of integer;
  3. 	a,b,c:integer;
  4. 	x,y,z:integer;
  5. begin
  6. 	while not(eof) do
  7. 	begin
  8. 		c:=0;
  9. 		b:=0;
  10. 		readln(a);
  11. 		for x:=1 to a do
  12. 		begin
  13. 			read(ar[x]);
  14. 			b:=b+ar[x];
  15. 		end;
  16. 		b:=b div a;
  17. 		for x:=1 to a do
  18. 			if ar[x] < b then
  19. 				c:=c+(b-ar[x]);
  20. 		writeln(c);
  21. 	end;
  22. end.
Runtime error #stdin #stdout 0.02s 252KB
comments (?)
stdin
copy 
6 
5 2 4 1 7 5 
0
stdout
copy 
5
Runtime error 200 at $0804818D
  $0804818D
  $0805EF01
https://ideone.com/SXXiB
language:
Pascal (fpc 3.0.4)
created:
13 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!