|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.06.2009, 17:36 | #1 |
Пользователь
Регистрация: 01.06.2009
Сообщений: 17
|
вопрос
const n=100000;
var a:array[1..n] of integer; i:integer; begin for i:=1 to n do begin a[i]:=random(10); end; for i:=1 to n-3 do begin if (a[i]=a[i+1])and(a[i]=a[i+2]) then begin write('Есть'); exit; end; end; write('нет'); end. вопрос - почему n-3 ? |
15.06.2009, 17:39 | #2 |
Босс
Форумчанин
Регистрация: 03.06.2009
Сообщений: 125
|
зачем писать по 10 раз одно и тоже?!
Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются. Ася 255507394. Отзывы здесь. |
15.06.2009, 17:41 | #3 |
Пользователь
Регистрация: 01.06.2009
Сообщений: 17
|
но я вопрос задал -(
|
15.06.2009, 18:04 | #4 |
Пользователь
Регистрация: 03.03.2009
Сообщений: 27
|
Я тебе в той теме ответил. Если не понятно, переспроси, объясню еще раз...
|
17.06.2009, 21:04 | #5 |
Форумчанин
Регистрация: 05.12.2008
Сообщений: 143
|
вот смотри в чем фишка.. незнаю смогу ли объяснить..
ну вот значит твои числа 1 2 3 4 5 6 7 8 9 4 6 4 3 вот комп доходит до предпоследнего числа (число 4) и начинает проверят равно ли это предпоследнее число двум последующим.. (a[i]=a[i+1]) проверил число с последним числом, (a[i]=a[i+2]) а эту команду он не может выполнить т.к. у тебя числа закончились.. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вопрос | Exo | Microsoft Office Excel | 2 | 04.12.2008 17:07 |
Вопрос наверное про функции, а так точно даже не знаю про что. (Вопрос начинющего #6) | Albert2008 | Общие вопросы Delphi | 4 | 21.08.2008 15:33 |
вопрос по сокетам и общение как в ICQ.Сложный вопрос... | Руслантус | Общие вопросы C/C++ | 2 | 12.08.2008 21:10 |
Вопрос !!! | TRAITOR | Помощь студентам | 1 | 09.05.2008 14:57 |
Вопрос! | Rahim1993 | Общие вопросы Delphi | 3 | 07.01.2008 01:16 |