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

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

code: #pascal
Program Series38;
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,Up,Down: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[j])and(j = 1)then
Up:=true
else
Up:=false;
if(Up)then
begin
if(min>TheArr[j])then Bool:=false
else min:=TheArr[j];
end
else
begin
if(max[j])then Bool:=false
else max:=TheArr[j];
end;
end;
if(bool)then
begin
sum_all:=sum_all+1;
end;
end;
writeln('Всего наборов: ',sum_all);
end. 

автор: Zevsnet

Поделиться:

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