menu
person

Задача №2888

Опи­ши­те на языке про­грам­ми­ро­ва­ния ал­го­ритм под­сче­та мак­си­

Поиск задачи:

Опи­ши­те на языке про­грам­ми­ро­ва­ния ал­го­ритм под­сче­та мак­си­маль­но­го ко­ли­че­ства под­ряд иду­щих эле­мен­тов, каж­дый из ко­то­рых боль­ше преды­ду­ще­го, в це­ло­чис­лен­ном мас­си­ве длины 30.

 

По­яс­не­ние.

Ре­ше­ние на Пас­ка­ле.

 

const N = 30;

var

a: array [1..N] of integer;

MaxIncr, NumIncr, i: integer;

begin

MaxIncr: =1;

NumIncr: =1;

for i: =1 to N-1 do

if (a[i] < a [i+1]) then NumIncr: =NumIncr+1 else

begin

if (NumIncr > MaxIncr) then MaxIncr: =NumIncr;

NumIncr: =1;

end;

writeln (MaxIncr);

end.

Категория: по информатике | Добавил: Просмотров: 1 | Теги: Ал­го­рит­мы обработки массивов | Рейтинг: 0.0/0
Всего комментариев: 0