12 | 2021. 01. 07 21:14:44 | mraron | Kövek (100 pont) | pascal | Elfogadva 100/100 | 10ms | 1632 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 | 1056 KiB | |||
2 | Elfogadva | 0/0 | 10ms | 1632 KiB | |||
3 | Elfogadva | 5/5 | 1ms | 1208 KiB | |||
4 | Elfogadva | 5/5 | 1ms | 1116 KiB | |||
5 | Elfogadva | 5/5 | 1ms | 1216 KiB | |||
6 | Elfogadva | 5/5 | 1ms | 1216 KiB | |||
7 | Elfogadva | 5/5 | 1ms | 1148 KiB | |||
8 | Elfogadva | 5/5 | 1ms | 1148 KiB | |||
9 | Elfogadva | 7/7 | 1ms | 1216 KiB | |||
10 | Elfogadva | 7/7 | 1ms | 1144 KiB | |||
11 | Elfogadva | 8/8 | 1ms | 1084 KiB | |||
12 | Elfogadva | 8/8 | 1ms | 1212 KiB | |||
13 | Elfogadva | 8/8 | 1ms | 1212 KiB | |||
14 | Elfogadva | 8/8 | 2ms | 1212 KiB | |||
15 | Elfogadva | 8/8 | 4ms | 1316 KiB | |||
16 | Elfogadva | 8/8 | 9ms | 1504 KiB | |||
17 | Elfogadva | 8/8 | 10ms | 1504 KiB |