Program Series39;
const
_max = 100;
type
MyType = array [1.._max] of integer;
procedure Massiv(var TheArr:MyType; var N:integer);
var
i:integer;
begin
N:=random(9);
for i:=1 to N do
begin
TheArr[i]:=random(_max-2);
end;
N:=N+1;
TheArr[N]:=0;
end;
var
TheArr:MyType;
k,n:integer;
i,j:integer;
min,max,sum_all:integer;
bool,Up,Down:boolean;
begin
write('Введите К:');readln(k);
for i:=1 to k do
begin
Massiv(TheArr,n);
for j:=1 to N-1do
begin
write(TheArr[j],' ');
end;
writeln;
min:=TheArr[1];
max:=TheArr[3];
bool:=true;
for j:=2 to N-3 do
begin
if((min<TheArr[j])and(TheArr[j]<max))or((min>TheArr[j])and(TheArr[j]>max))then
begin
min:=TheArr[j];
max:=TheArr[j+2];
end
else
begin
bool:=false;
end;
end;
if(bool)then
begin
sum_all:=sum_all+1;
end;
end;
writeln('Всего наборов: ',sum_all);
end.