結果

問題 No.275 中央値を求めよ
ユーザー ShizukuShizuku
提出日時 2020-03-12 23:49:35
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 2 ms / 1,000 ms
コード長 976 bytes
コンパイル時間 1,980 ms
コンパイル使用メモリ 32,640 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-11-20 12:55:07
合計ジャッジ時間 3,672 ms
ジャッジサーバーID
(参考情報)
judge1 / judge3
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 38
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

program W
implicit none
integer::N
real(8),allocatable,dimension(:)::A
read*,N
allocate(A(N))
read*,A
call heapsort(N,A)
print"(f0.14)",merge((A(N/2)+A(N/2+1))/2_8,A(N/2+1),mod(N,2)==0)
contains
subroutine heapsort(n,array)
implicit none
!
integer,intent(in) :: n
real(8),intent(inout) :: array(1:n)
integer(16)::i,k,j,l
real(8):: t
l=n/2+1
k=n
do while(k /= 1)
if(l > 1)then
l=l-1
t=array(L)
else
t=array(k)
array(k)=array(1)
k=k-1
if(k == 1) then
array(1)=t
exit
endif
endif
i=l
j=l+l
do while(j<=k)
if(j < k)then
if(array(j) < array(j+1))j=j+1
endif
if (t < array(j))then
array(i)=array(j)
i=j
j=j+j
else
j=k+1
endif
enddo
array(i)=t
enddo
return
end subroutine heapsort
end program W
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0