Помогите с массивами в TP

[PHILOSOPH13]

Помогите с массивами в TP

дан массив размера N.Найти кол-во участков,на которых его элементы монотонно убывают.

 

[MrSTEP]

А почему бы не попробовать самому составить алгоритм, попытаться решить? А мы тогда подскажем, что непонятно или не получается. Это и есть помощь

 

[PHILOSOPH13]

друг,у меня это займет уйму времени,я понимаю суть задачи и могу составить ее алгоритм,но на TP ее написать затрудняюсь...сдавать нужно уже после завтра...

 

[Vladimir_S]

А интересно, какое минимальное количество членов массива предполагает "монотонное убывание"? Два? Три? Больше? Как задается массив? Какой тип данных?

 

[PHILOSOPH13]

тип данных любой,если что сам подредактирую,убывание от двух и более...массив можно задать самому,можно и рандомом...без разницы)

 

[Vladimir_S]

Тогда, например, так:

CONST
 N=100;
VAR
 A:ARRAY[1..N] of WORD;
 i:INTEGER;
 Num,p:BYTE;
 b:Boolean;
BEGIN
 RANDOMIZE;
 For i:=1 to N do
  begin
   A[i]:=RANDOM(1000);
   Write(A[i]:4);
  end;
 WriteLn;
 Num:=0;
 i:=1;
 Repeat
  b:=true;
  p:=0;
  Repeat
   INC(i);
   If A[i]<A[i-1] then
    begin
     b:=false;
     p:=1;
    end else b:=true;
  Until b or (i=N);
  If p=1 then INC(Num);
 Until i=N;
 WriteLn('The number od "falling" sections is ',Num);
 ReadLn;
END.

 

[PHILOSOPH13]

огромное спасибо,реально выручил)))))

 

[PHILOSOPH13]

усе,доработал,теперь в массиве сам задаю N))))спасибо,сам бы реально много времени потратил бы...)))