| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 09:45:10 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=d94606f74f38975019166cb26a8b54ed2e97471f8a168e846747e343fc8cba9aa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22tQxfNUfiwpMEKTUDlysr7VmtRcE6nFFJ%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cd6c4d4e812ffb-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;
- ArrayA : Array Of Integer;
- ArrayB : Array Of Integer;
- Temp : Integer;
- IsCorrect1 : Boolean;
- IsCorrect2 : Boolean;
- Begin
- Writeln('Задача программы Получить новый массив, поменяв элементы,стоящие на четных местах, с элементами, стоящими на нечетных местах');
- Repeat
- IsCorrect1 := True;
- Write('Введите количество элементов массива : ');
- Try
- Readln(N);
- Except
- IsCorrect1 := False;
- End;
- If (Not IsCorrect1) Or (N < 2 ) Then
- Begin
- IsCorrect1 := False;
- Writeln('Ошибка, попробуйте ввести значение заново');
- End;
- Until Iscorrect1;
- Setlength(ArrayA, N);
- For I := 0 To High(ArrayA) Do // Инициализация первого массива
- Begin
- Repeat
- IsCorrect2 := True;
- Write('Введите элемент a[' ,I + 1, '] ' );
- Try
- Readln(ArrayA[I]);
- Except
- IsCorrect2 := False;
- End;
- If (Not IsCorrect1) Or (ArrayA[I] < 1) Then
- Begin
- IsCorrect1 := False;
- Writeln('Ошибка, попробуйте ввести значение заново');
- End;
- Until IsCorrect2;
- End;
- SetLength(ArrayB, N);
- For I := 0 To High(ArrayA) Do // копирование данных из первого массива во второй
- Begin
- ArrayB[I] := ArrayA[I];
- End;
- For I := 0 To High(ArrayA) div 2 - 1 Do // замена четных эелементов на нечетные
- Begin
- Temp := ArrayB[2*I];
- ArrayB[2*I] := ArrayB[2*I + 1];
- ArrayB[2*I + 1] := Temp;
- End;
- Writeln('Новый массив : ');
- For I := 0 To High(ArrayB) Do // вывод данных нового массива
- Begin
- Write(ArrayB[I], ' ');
- End;
- Readln;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 4 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ 9
JavaScript | 6 sec ago | 0.24 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D G⭐⭐
Java | 11 sec ago | 0.10 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 13 sec ago | 0.24 KB
-
⭐⭐Exchange Exploit⭐⭐ T
JavaScript | 18 sec ago | 0.24 KB
-
⭐✅ MAKE $2000 INSTANTLY ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 23 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ H
JavaScript | 29 sec ago | 0.24 KB
-
⭐ Free Crypto Method ✅ NEVER SEEN BEFORE ⭐⭐⭐
JavaScript | 32 sec ago | 0.24 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
