Submission #19 :: njudge

2021-01-07 21:43:34

pascal

Accepted 100/100

12ms

1612 KiB

Program kovek;
  const maxn=100000;
  var n,db,kell: integer;
      s,i,j: integer;
      k: array[1..maxn] of integer;
begin
  readln(n); 
  for i:=1 to n do read(k[i]);
  readln;
  s:=0;
  for i:=1 to n do s:=s+k[i];
  kell:=s div n;
  db:=n; s:=0; j:=0;
  for i:=1 to n do
  begin
    s:=s+k[i];
    if s=(i-j)*kell then 
    begin
      dec(db); s:=0; j:=i;
    end;
  end;
  writeln(db);
end.

	Sum	Test	Verdict		Time	Memory
base	100/100
		1	Accepted	0/0	1ms	1056 KiB
		2	Accepted	0/0	12ms	1420 KiB
		3	Accepted	5/5	1ms	1148 KiB
		4	Accepted	5/5	1ms	1224 KiB
		5	Accepted	5/5	1ms	1220 KiB
		6	Accepted	5/5	1ms	1160 KiB
		7	Accepted	5/5	1ms	1160 KiB
		8	Accepted	5/5	1ms	1220 KiB
		9	Accepted	7/7	1ms	1156 KiB
		10	Accepted	7/7	1ms	1220 KiB
		11	Accepted	8/8	1ms	1224 KiB
		12	Accepted	8/8	1ms	1156 KiB
		13	Accepted	8/8	1ms	1224 KiB
		14	Accepted	8/8	2ms	1260 KiB
		15	Accepted	8/8	4ms	1328 KiB
		16	Accepted	8/8	10ms	1612 KiB
		17	Accepted	8/8	10ms	1580 KiB