Дан массив целых чисел.Найти max и min значения среди чисел,принадлежащих интервалу [a;b]. Числа a и b вводятся с клавиатуры. Предполагается, что такие числа в массиве есть.

Var m:array of integer;
a,b,i,n,min,max:integer;
begin
readln(n,a,b);
setlength(m,n);
n-=1;
a-=1;
b-=1;
max:=a;
min:=a;
for i:=0 to n do begin
read(m[i]);
if (i>=a) and (i<=b) and (m[i]>m[max]) then max:=i;
if (i>=a) and (i<=b) and (m[i]end;
writeln(Min ,m[min], Max ,m[max]);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.