結果

問題 No.851 テストケース
ユーザー amasaki203
提出日時 2019-07-26 21:44:44
言語 Fortran
(gFortran 14.2.0)
結果
WA  
実行時間 -
コード長 442 bytes
コンパイル時間 2,090 ms
コンパイル使用メモリ 33,536 KB
実行使用メモリ 6,948 KB
最終ジャッジ日時 2024-07-02 06:53:55
合計ジャッジ時間 2,963 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample WA * 3
other WA * 19 RE * 1
権限があれば一括ダウンロードができます

ソースコード

diff # 

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), c
   
   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