|
|
back to boardplease i dont understand where mistake var K,N,s,x,i,j:integer; min:array[1..101] of integer; begin readln(K); N:=K div 2 + 1; for i:=1 to N do min[i]:=maxint; for i:=1 to K do begin read(x); for j:=1 to N do if min[j]>x then begin min[j]:=x; break; end; end; for i:=1 to N do s:=s+(min[i] div 2 +1); writeln(s); end. Re: please Mistake is here: >for i:=1 to N do min[i]:=maxint; >for i:=1 to K do >begin >read(x); >for j:=1 to N do if min[j]>x then begin >min[j]:=x; >break; >end; >end; IMO, it's much easier to read array and then sort it. |
|
|