|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
19.12.2013, 15:39 | #1 |
Регистрация: 13.12.2013
Сообщений: 8
|
срочно!=(
Помогите!мне необходимо описать что делает эта часть программы..
i:=2;mx:=0;imx:=0; while i<=n do if a[i]>a[i-1] then begin j:=i;k:=1; while (j<=n)and(a[j]>a[j-1]) do begin j:=j+1; k:=k+1; end; if k>mx then begin mx:=k; imx:=i-1; end; i:=i+k; end else i:=i+1; writeln('Максимальная последовательность возрастания=',mx); for i:=imx to imx+mx-1 do write(a[i],' '); readln end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
СРОЧно нужна помощь(одномерный массив)СРОЧНО, МОГУ заплатить. | warsong | Фриланс | 12 | 11.01.2010 20:30 |