Найти Min и Max на интервале Опции

[4eloveK]

Помогите с задачей плиз.

Даны числа a,b(0<a<b) и набор из десяти элементов. Найти минимальный1| максимальный2 из элементов, содержащихся в интервале (a, b). Если требуемые элементы отсутствуют, то вывести -1.

[Lapp]

Помогите с задачей плиз.

Поможем, оч ем речь! Не надо предварительных разговоров - сразу выкладывай, с чем возникли проблемы в твоей программе - и мы сразу поможем

[4eloveK]

Min max нахожу а вот как с интервалами быть поясните плиз хотя бы коментами.

uses crt;
var
mas:array[1..12]of integer;
a,b,min,max,i:integer;
begin
writeln('Введите a и b');
readln(a,b);
mas[1]:=a;
mas[12]:=b;
min:=mas[1];
randomize;
for i:=2 to 11 do
begin
mas[i]:=random(9);
writeln(mas[i]);
end;
for i:=1 to 10 do
if min<mas[i] then
begin
min:=mas[i]
end;
max:=mas[1];
for i:=1 to 10 do
if max>mas[i] then
begin
max:=mas[i];
end;
writeln ('MAX ',max);
writeln('MIN ',min);
end.

М

Просьба использовать правильные тэги. Lapp

[amega]

а интервал можно задать множеством, и потом проверять является ли чилов в этом множестве да и все

[TarasBer]

1. min:=mas[1]; делается почему-то ДО иннициализации массива.
2. тогда уж элементы проверять не с первого надо, а со второго.
3. проверка для минимума и максимума перепутана - у вас они наоборот.