You are given a one-dimensional array of N integers. Find in the array the maximum length of a sequence
You are given a one-dimensional array of N integers. Find in the array the maximum length of a sequence of contiguous elements, each of which is greater than or equal to the previous one.
The program searches for a non-decreasing sequence of maximum length in an array of 20 elements. If there are several sequences, the first one is marked.
program length;
var a: array [1..20] of integer;
max, max_i, min_i, k: integer;
begin
randomize;
writeln ();
for i: integer: = 1 to 20 do write (i: 5);
writeln ();
for i: integer: = 1 to 20 do
begin
a [i]: = (random (100) + 1);
write (a [i]: 5)
end;
max: = 1;
k: = 1;
for i: integer: = 1 to 19 do
begin
if a [i] <= a [i + 1] then k: = k + 1;
if k> max then
begin
max: = k;
max_i: = i + 1
end
else k: = 1
end;
writeln ();
writeln (” * ((max_i – max) * 5 + 2), ‘-‘ * (max * 5 – 2));
writeln (‘Maximum sequence length -‘, max)
end.