結果
問題 | No.21 平均の差 |
ユーザー |
|
提出日時 | 2020-09-27 22:36:40 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 5,000 ms |
コード長 | 352 bytes |
コンパイル時間 | 124 ms |
コンパイル使用メモリ | 30,592 KB |
実行使用メモリ | 6,944 KB |
最終ジャッジ日時 | 2024-06-30 13:58:09 |
合計ジャッジ時間 | 837 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 10 |
ソースコード
program main implicit none integer :: n, k integer :: m integer :: minimum = 1000, maximum = 1 integer :: i read *, n read *, k do i = 1, n read *, m minimum = min(minimum, m) maximum = max(maximum, m) end do print '(I0)', maximum - minimum end program main