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