14 | 2021. 01. 07 21:17:36 | mraron | Kövek (100 pont) | pascal | Elfogadva 100/100 | 10ms | 1628 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 | 996 KiB | |||
2 | Elfogadva | 0/0 | 10ms | 1608 KiB | |||
3 | Elfogadva | 5/5 | 1ms | 1204 KiB | |||
4 | Elfogadva | 5/5 | 1ms | 1144 KiB | |||
5 | Elfogadva | 5/5 | 1ms | 1208 KiB | |||
6 | Elfogadva | 5/5 | 1ms | 1204 KiB | |||
7 | Elfogadva | 5/5 | 1ms | 1076 KiB | |||
8 | Elfogadva | 5/5 | 1ms | 1208 KiB | |||
9 | Elfogadva | 7/7 | 1ms | 1208 KiB | |||
10 | Elfogadva | 7/7 | 1ms | 1204 KiB | |||
11 | Elfogadva | 8/8 | 1ms | 1076 KiB | |||
12 | Elfogadva | 8/8 | 1ms | 1144 KiB | |||
13 | Elfogadva | 8/8 | 1ms | 1140 KiB | |||
14 | Elfogadva | 8/8 | 2ms | 1136 KiB | |||
15 | Elfogadva | 8/8 | 4ms | 1320 KiB | |||
16 | Elfogadva | 8/8 | 9ms | 1536 KiB | |||
17 | Elfogadva | 8/8 | 10ms | 1628 KiB |