結果

問題 No.851 テストケース
ユーザー amasaki203amasaki203
提出日時 2019-07-26 21:43:10
言語 Fortran
(gFortran 13.2.0)
結果
WA  
実行時間 -
コード長 442 bytes
コンパイル時間 1,330 ms
コンパイル使用メモリ 33,528 KB
実行使用メモリ 6,948 KB
最終ジャッジ日時 2024-07-02 06:51:48
合計ジャッジ時間 2,074 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 WA -
testcase_02 WA -
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 WA -
testcase_08 WA -
testcase_09 WA -
testcase_10 RE -
testcase_11 WA -
testcase_12 WA -
testcase_13 WA -
testcase_14 WA -
testcase_15 WA -
testcase_16 WA -
testcase_17 WA -
testcase_18 WA -
testcase_19 WA -
testcase_20 WA -
testcase_21 WA -
testcase_22 WA -
権限があれば一括ダウンロードができます

ソースコード

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