92021-01-07 20:59:46mraronKövek (100 pont)pascalElfogadva 100/10010ms1568 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/010ms1568 KiB
3Elfogadva5/51ms1140 KiB
4Elfogadva5/51ms1084 KiB
5Elfogadva5/51ms1212 KiB
6Elfogadva5/51ms1216 KiB
7Elfogadva5/51ms1212 KiB
8Elfogadva5/51ms1084 KiB
9Elfogadva7/71ms1212 KiB
10Elfogadva7/71ms1152 KiB
11Elfogadva8/81ms1216 KiB
12Elfogadva8/81ms1216 KiB
13Elfogadva8/81ms1148 KiB
14Elfogadva8/82ms1148 KiB
15Elfogadva8/84ms1312 KiB
16Elfogadva8/89ms1444 KiB
17Elfogadva8/810ms1480 KiB