Помогите написать программу в Паскале.
Дан массив размера N.
1. Найти количество участков К, на которых его элементы монотонно возрастают.

Ответ учителя по предмету Информатика

const n=20;

var a:array[1..n] of integer;

i,k,m:integer;

begin

Randomize;

writeln(‘Массив A:’);

for i:=1 to n do

 begin

 a[i]:=random(51);

 write(a[i]:3);

 end;

writeln;

k:=0; m:=0;

for i:=1 to n-1 do

 begin

 if a[i+1]>a[i] then begin m:=m+1; end

 else begin if m>0 then k:=k+1; m:=0; end;

 end;

if m>0 then k:=k+1;

writeln(‘k = ‘,k);

end.

Пример:

Массив A:

  7 30 22  0 17  4  2 32 39 26 23 41  1 38 47 21 38 31 43  7

k = 7