22021-01-07 20:26:49mraronKövek (100 pont)pascalElfogadva 100/10012ms1584 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ÖsszpontTesztVerdiktIdőMemória
base100/100
1Elfogadva0/01ms996 KiB
2Elfogadva0/012ms1584 KiB
3Elfogadva5/51ms1136 KiB
4Elfogadva5/51ms1204 KiB
5Elfogadva5/51ms1208 KiB
6Elfogadva5/51ms1140 KiB
7Elfogadva5/51ms1140 KiB
8Elfogadva5/51ms1208 KiB
9Elfogadva7/71ms1144 KiB
10Elfogadva7/71ms1144 KiB
11Elfogadva8/81ms1140 KiB
12Elfogadva8/81ms1140 KiB
13Elfogadva8/81ms1140 KiB
14Elfogadva8/82ms1208 KiB
15Elfogadva8/84ms1244 KiB
16Elfogadva8/89ms1500 KiB
17Elfogadva8/810ms1564 KiB