結果

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

ソースコード

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