結果

問題 No.275 中央値を求めよ
ユーザー jjjj
提出日時 2016-07-22 01:30:21
言語 Fortran
(gFortran 14.2.0)
結果
AC  
実行時間 2 ms / 1,000 ms
コード長 826 bytes
コンパイル時間 392 ms
コンパイル使用メモリ 35,444 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-06-24 23:53:59
合計ジャッジ時間 1,526 ms
ジャッジサーバーID
(参考情報)
judge1 / judge2
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 38
権限があれば一括ダウンロードができます

ソースコード

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

recursive function qsort(x) result(y)
integer,intent(in) ::x(:)
integer,allocatable::y(:)
integer::pivot,total
total = size(x)
if (total <=1) then
y = x
else
pivot = x(total/2)
y = [qsort(pack(x, x .lt. pivot)), &
pack(x, x .eq. pivot), &
qsort(pack(x, x .gt. pivot))]
endif
end function qsort
program main
interface
recursive function qsort(x) result(y)
integer,intent(in) ::x(:)
integer,allocatable::y(:)
end function qsort
end interface
integer::total
integer,allocatable::x(:), y(:)
read *,total
allocate(x(total))
allocate(y(total))
read *,(x(i),i=1,total)
y = qsort(x)
if (mod(total,2).eq.1) then
print '(f0.1)',y(total/2+1)*1.0
else
print '(f0.1)',(y(total/2)+y(total/2+1)) /2.0
endif
end program main
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0