| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 06:53:32 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=f4a1402a6cbe272f40219d913a497257fb4daab3e152c8695e981bb49e1b0220a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22DaxhTp5-RwogE0pEV5xjxYMVfq3otWRm%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d4ae4639851eef-BLR
Laba4_1 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program laba4_1;
- Uses
- System.SysUtils;
- Var
- N : Integer;
- I : Integer;
- A : Array Of Integer;
- Rev : Integer;
- IsCorrect : Boolean;
- Begin
- Writeln('Задача программы Получить новый массив, поменяв элементы,стоящие на четных местах, с элементами, стоящими на нечетных местах');
- Repeat
- IsCorrect := True;
- Write('Введите количество элементов массива : ');
- Try
- Readln(N);
- Except
- IsCorrect := False;
- Writeln('Ошибка, попробуйте ввести значение заново');
- End;
- Until Iscorrect;
- Setlength(A, N);
- For I := 0 To N -1 Do
- Begin
- Write('Введите элемент a[' ,I + 1, '] ' );
- Readln(a[I]);
- End;
- For I := 0 To N div 2 - 1 Do
- Begin
- Rev := A[2*I];
- A[2*I] := A[2*I + 1];
- A[2*I + 1] := Rev;
- End;
- Writeln('Массив после замены: ');
- For I := 0 To N - 1 Do
- Writeln(A[I], ' ');
- Readln;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ Y
JavaScript | 5 sec ago | 0.25 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ A
JavaScript | 14 sec ago | 0.25 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ L
JavaScript | 23 sec ago | 0.25 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ H
JavaScript | 32 sec ago | 0.25 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 3 min ago | 0.10 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 3 min ago | 0.10 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 3 min ago | 0.10 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 4 min ago | 0.10 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
