結果
問題 | No.178 美しいWhitespace (1) |
ユーザー |
![]() |
提出日時 | 2018-03-03 14:11:50 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 459 bytes |
コンパイル時間 | 1,357 ms |
コンパイル使用メモリ | 32,768 KB |
実行使用メモリ | 6,948 KB |
最終ジャッジ日時 | 2024-06-24 08:52:32 |
合計ジャッジ時間 | 1,601 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 7 WA * 14 |
ソースコード
program main implicit none integer ::n,summ=0 integer i integer,allocatable,dimension(:)::a,b,c read(*,*)n allocate(a(n),b(n),c(n)) do i=1,n read(*,*)a(i),b(i) if(i>1)then if(mod(abs(a(i)-a(i-1)),2)/=0)then write(*,*)-1 goto 10 endif endif c(i)=a(i)+4*b(i) enddo do i=1,n summ=summ+(maxval(c)-c(i)) enddo write(*,*)summ/2 10 continue end program main