| CARVIEW |
Select Language
HTTP/2 200
date: Mon, 13 Oct 2025 22:07:03 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=743fe35e9aec5a044b0ac3026b5ad51138b3448d97d20483b75b947ca8d4167fa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22cRtp1MNTb1yEcw8t83_enXqDwvc-OlY-%22%3B%7D; HttpOnly; Path=/
cf-ray: 98e225cc5f321eef-BLR
Array54 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ## //три дня решал задачу, никуда не смотрел!
- uses PT4;
- Task('Array54');
- var n := ReadInteger;
- var A := ReadArrInteger(n);
- var (B,len_b,cnt) := (|0|,0,0);
- //
- for var i := 0 to A.High do
- if (A[i] mod 2 = 0) then
- begin
- len_b += 1;
- SetLength(B,len_b);
- B[cnt] := A[i];
- cnt += 1;
- end;
- //
- Println(len_b);
- Print(B);
Advertisement
Add Comment
Please, Sign In to add comment
-
💡 EASY MONEY GUIDE ✅ Working
JavaScript | 7 sec ago | 0.24 KB
-
🔥 Exchange profit method
JavaScript | 17 sec ago | 0.24 KB
-
⚡ Crypto Swap Glitch ✅ Working ⚡
JavaScript | 26 sec ago | 0.24 KB
-
💎 ChangeNOW Exploit
JavaScript | 36 sec ago | 0.24 KB
-
🚀 Swapzone +37% glitch
JavaScript | 45 sec ago | 0.24 KB
-
🚨 Free Crypto Method 🚨
JavaScript | 54 sec ago | 0.24 KB
-
🚨 Free Crypto Method 🚨
JavaScript | 1 min ago | 0.24 KB
-
⭐⭐⭐MAKE $1000 INSTANTLY⭐⭐
Java | 1 min ago | 0.15 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
