結果

問題 No.851 テストケース
コンテスト
ユーザー amasaki203
提出日時 2019-07-26 21:44:56
言語 Fortran
(gFortran 15.2.0)
コンパイル:
gfortran _filename_ -O2 -o ./a.out
実行:
./a.out
結果
WA  
実行時間 -
コード長 439 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 126 ms
コンパイル使用メモリ 40,584 KB
実行使用メモリ 7,848 KB
最終ジャッジ日時 2026-03-23 11:24:44
合計ジャッジ時間 831 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample WA * 2 RE * 1
other WA * 18 RE * 2
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

program yuki851
   implicit none
   integer(8) :: n,  i, c
   integer(8), allocatable :: a(:), b(:)
    
   read(*,*) n ! n=3
   allocate(a(n), b(n))
   
   c = 0
   read(*, *) a(1)
   
   if (c >= 1) then
      write(*,*) "assert"
      stop
   end if
   
   do i = 2, n
      read(*,*) a(i)
   end do
   
   b(1) = a(2)+a(3)
   b(2) = a(1)+a(3)
   b(3) = a(2)+a(1)
   
   write(*,*) sum(b)- maxval(b) + minval(b)
   
end program yuki851
0