182021-01-07 21:43:03mraronKö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/09ms1568 KiB
3Elfogadva5/51ms1204 KiB
4Elfogadva5/51ms1204 KiB
5Elfogadva5/51ms1208 KiB
6Elfogadva5/51ms1076 KiB
7Elfogadva5/51ms1204 KiB
8Elfogadva5/51ms1204 KiB
9Elfogadva7/71ms1076 KiB
10Elfogadva7/71ms1076 KiB
11Elfogadva8/81ms1204 KiB
12Elfogadva8/81ms1136 KiB
13Elfogadva8/81ms1140 KiB
14Elfogadva8/82ms1136 KiB
15Elfogadva8/84ms1308 KiB
16Elfogadva8/89ms1476 KiB
17Elfogadva8/810ms1532 KiB