Дано целое число K, а также K наборов ненулевых целых чисел. Найти количество наборов, элементы которых возрастают или убывают

Каждый набор содержит не менее двух элементов, признаком его завершения является число 0.

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

автор: Zevsnet

Поделиться:

Похожие статьи: