?? ac1025.pas
字號(hào):
program ural1025;
const
maxk=101;
var
p:array[1..maxk]of integer;
k,i,j:byte;
t:integer;
begin
readln(k);
for i:=1 to k do
read(p[i]);
for i:=1 to k-1 do
for j:=i+1 to k do
if p[i]>p[j] then begin
t:=p[i];p[i]:=p[j];p[j]:=t;
end;
k:=k div 2+1;t:=0;
for i:=1 to k do
inc(t,p[i] div 2+1);
writeln(t);
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -