Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
##11 page 130
Esraa_Amer
Jan 14th, 2013
38
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Fortran
0.23 KB
| None
|
0
0
raw
download
clone
embed
print
report
DIMENSION
A
(
5
)
DO
10
I
=
1
,
5
READ
(
*
,
*
)
A
(
I
)
10
CONTINUE
AMAX
=
ABS
(
A
(
1
)
)
DO
20
I
=
2
,
5
IF
(
AMAX.
LT
.
ABS
(
A
(
I
)
)
)
AMAX
=
ABS
(
A
(
I
)
)
20
CONTINUE
WRITE
(
*
,
*
)
AMAX
PAUSE
STOP
END
Advertisement
Add Comment
Please,
Sign In
to add comment
Public Pastes
Crypto Method
CSS | 8 min ago | 0.25 KB
I made $2,000 in 20 minutes
CSS | 8 min ago | 0.25 KB
✅ API Glitch (Docs Leak)
CSS | 8 min ago | 0.25 KB
Task Manager config
Lua | 14 hours ago | 1.32 KB
Adding Stripe invoice API param
19 hours ago | 0.70 KB
Asklepios Klinik Nord – Heidberg
1 day ago | 20.98 KB
2026_07_updated_july
1 day ago | 1.06 KB
How to rename README.md and LICENSE on build
XML | 2 days ago | 0.52 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
