| CARVIEW |
Select Language
HTTP/2 200
date: Thu, 16 Oct 2025 00:24:23 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=3288d8028a12b27fd921016b8bfc7c9086cb3fb78595cbcd3fb9f62783a43cfba%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22cL_So6FJwxnD4XeXAtJToPyuBWam5HAE%22%3B%7D; HttpOnly; Path=/
cf-ray: 98f369b7c905b277-BLR
Laba1_2 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program Laba1_2;
- Uses
- System.SysUtils;
- Var
- Count : Integer;
- N : Integer;
- ArrayA : Array Of Integer;
- ArrayB : Array OF Integer;
- I : Integer;
- IsCorrect : Boolean;
- Begin
- Writeln('Программа считает сколько раз срабатывает условие : а > b и ai+1 < bi+1');
- Repeat
- IsCorrect := True;
- Write('Введите число N : ');
- Try
- Readln(N);
- Except
- IsCorrect := False;
- End;
- If (Not IsCorrect) Or (N < 1) Then
- Begin
- IsCorrect := False;
- Writeln('Ошибка! Введите корректное значение числа N ');
- End;
- Until IsCorrect;
- SetLength(ArrayA, N);
- SetLength(ArrayB, N);
- Writeln('Введите значение элементов последовательности А : ');
- For I := 0 To High(ArrayA) Do
- Begin
- Readln(ArrayA[I]);
- End;
- Writeln('Введите значение элементов последовательности B : ');
- For I := 0 To High(ArrayB) Do
- Begin
- Readln(ArrayB[I]);
- End;
- Count := 0;
- For I := 1 To High(ArrayA) Do
- Begin
- If (ArrayA[I] > ArrayB[I]) And (ArrayA[I+1] < ArrayB[I+1]) Then
- Begin
- Inc(Count);
- End;
- End;
- Writeln('Количество : ', Count);
- Readln;
- End.
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Profit Method⭐⭐
Java | 2 sec ago | 0.15 KB
-
📌 Swapzone +37% glitch ⭐ A
JavaScript | 7 sec ago | 0.25 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D M⭐⭐
Java | 10 sec ago | 0.15 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 10 sec ago | 0.15 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 10 sec ago | 0.15 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 13 sec ago | 0.15 KB
-
⚡ Crypto Swap Glitch ✅ Working ⚡
JavaScript | 14 sec ago | 0.24 KB
-
✅ Marketplace Glitch ✅ Working NEVER SEEN BE...
JavaScript | 18 sec ago | 0.25 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
