Каждый набор содержит не менее двух элементов, признаком его завершения является число 0
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.
Похожие записи/страницы:
- Дано целое число K, а также K наборов ненулевых целых чисел. Найти количество наборов, элементы которых…
- Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов,…
- Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее двух элементов,…
- Дано целое число K, а также K наборов ненулевых целых чисел. Признаком завершения каждого набора является число…
- Даны натуральное n и последовательность а1,а2…а n вещественных чисел. Определить образуют ли они возрастающую…
- Сформировать два массива целых чисел определенной длины. Вывести на печать числа, встречающиеся только в одном…
- Проверить, является ли заданное натуральное число n > 1 простым - Pascal(Паскаль)
- Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести…