6 2021. 01. 07 20:57:15 mraron Kövek (100 pont) pascal Elfogadva 100/100 10ms 1580 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.
Részfeladat Összpont Teszt Verdikt Idő Memória
base 100/100
1 Elfogadva 0/0 1ms 1124 KiB
2 Elfogadva 0/0 10ms 1580 KiB
3 Elfogadva 5/5 1ms 1216 KiB
4 Elfogadva 5/5 1ms 1216 KiB
5 Elfogadva 5/5 1ms 1220 KiB
6 Elfogadva 5/5 1ms 1216 KiB
7 Elfogadva 5/5 1ms 1220 KiB
8 Elfogadva 5/5 1ms 1156 KiB
9 Elfogadva 7/7 1ms 1216 KiB
10 Elfogadva 7/7 1ms 1188 KiB
11 Elfogadva 8/8 1ms 1228 KiB
12 Elfogadva 8/8 1ms 1096 KiB
13 Elfogadva 8/8 1ms 1164 KiB
14 Elfogadva 8/8 2ms 1164 KiB
15 Elfogadva 8/8 4ms 1328 KiB
16 Elfogadva 8/8 10ms 1508 KiB
17 Elfogadva 8/8 10ms 1516 KiB