fork download 
  1. ! yukicoder My Practice
  2. ! author: Leonardone @ NEETSDKASU
  3.  
  4.       PROGRAM yukicoder
  5.           INTEGER :: n, a(100000), ans, mx, ai
  6.  
  7.           READ(*,*) n
  8.           READ(*,*) a(1:n)
  9.  
  10.           mx = a(1)
  11.           ans = 0
  12.  
  13.           DO i = 2, n
  14.               ai = a(i)
  15.               IF (ai > mx) THEN
  16.                   mx = ai
  17.               ELSE
  18.                   IF (ai > ans) ans = ai
  19.               END IF
  20.           END DO
  21.  
  22.           PRINT '(I0)', ans
  23.  
  24.           STOP
  25.       END PROGRAM yukicoder
  26.  
Success #stdin #stdout 0s 4356KB
comments (?)
stdin 
6
3 2 1 4 5 6
stdout 
2
https://ideone.com/GZFagY
yukicoder My Practice
author: Leonardone @ NEETSDKASU
language:
Fortran (gfortran 8.3)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!