Дано целое число K, а также K наборов ненулевых целых чисел. Найти количество наборов, элементы которых возрастают или убывают
Категория: Delphi/Pascal
2013-04-12 22:55:54
Каждый набор содержит не менее двух элементов, признаком его завершения является число 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
Поделиться: