Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
Untitled
Alex_1324
Oct 31st, 2024
50
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Pascal
0.19 KB
| None
|
0
0
raw
download
clone
embed
print
report
var
a
:
array
[
1
..
100
]
of
longint
;
m
,
i
,
n
,
k
,
sum
,
min
,
nom
,
max
:
longint
;
begin
readln
(
n
)
;
for
i
:
=
1
to
n
do
readln
(
a
[
i
]
)
;
i
:
=
1
;
if
a
[
i
]
:
=
0
then
a
[
i
]
:
=
5
;
writeln
(
)
;
end
.
Advertisement
Add Comment
Please,
Sign In
to add comment
Public Pastes
📌📌 Swapzone Glitch 2000/15MIN ⭐🚨 💵🚨
JavaScript | 10 sec ago | 0.17 KB
⭐⭐ Free Crypto Method ⭐⭐
JavaScript | 31 sec ago | 0.26 KB
💎💎 LEAKED BTC GUIDE
JavaScript | 1 min ago | 0.26 KB
🚨 MILLIONAIRES MONEY 🚨✅
JavaScript | 2 min ago | 0.17 KB
⭐⭐ FREE BTC GUIDE ✅ Working ⭐⭐
JavaScript | 3 min ago | 0.26 KB
🚨🚨 Swapzone +$1,000 Promotion 💵🔥
JavaScript | 4 min ago | 0.17 KB
⭐⭐ Trading exploit ⭐⭐
JavaScript | 5 min ago | 0.26 KB
📌📌📌 Insane Paid BTC Exploit 📌📌📌 ⭐⭐
JavaScript | 6 min ago | 0.17 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!