132021-01-07 21:15:27mraronKövek (100 pont)pascalElfogadva 100/10014ms1636 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/01ms1056 KiB
2Elfogadva0/010ms1636 KiB
3Elfogadva5/51ms1204 KiB
4Elfogadva5/51ms1140 KiB
5Elfogadva5/51ms1204 KiB
6Elfogadva5/51ms1204 KiB
7Elfogadva5/51ms1204 KiB
8Elfogadva5/51ms1076 KiB
9Elfogadva7/71ms1204 KiB
10Elfogadva7/71ms1204 KiB
11Elfogadva8/81ms1144 KiB
12Elfogadva8/81ms1204 KiB
13Elfogadva8/81ms1204 KiB
14Elfogadva8/82ms1140 KiB
15Elfogadva8/84ms1364 KiB
16Elfogadva8/814ms1472 KiB
17Elfogadva8/810ms1624 KiB