結果

問題 No.3039 配信者
ユーザー lotoka
提出日時 2025-03-04 19:17:54
言語 Fortran
(gFortran 14.2.0)
結果
WA  
実行時間 -
コード長 524 bytes
コンパイル時間 1,881 ms
コンパイル使用メモリ 42,112 KB
実行使用メモリ 8,608 KB
最終ジャッジ日時 2025-03-04 19:18:01
合計ジャッジ時間 7,108 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1 WA * 1
other TLE * 1 -- * 14
権限があれば一括ダウンロードができます

ソースコード

diff # 

program yuki3039
    integer N, H
    integer A(10**6), B(10**6)
    
    integer i, j
    integer :: max_num = 0
    integer temp
    
    read *, N, H
    
    do i = 1, N
        read *, A(i), B(i)
    end do
    
    do i = 1, H
        temp = 0
        do j = 1, N
            if (A(j) <= i .and. i < B(j)) then
                temp = temp + 1
            end if
        end do
        
        if (temp > max_num) then
            max_num = temp
        end if
    end do
    
    print *, max_num
end program yuki3039
0