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

Question

Информатика

Клавдия

15 октября, 18:50

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

+3

Ответы (1)

Знаете ответ на вопрос?

Эва · Answer 1

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 (im[max]) then max:=i;

if (i>=a) and (i<=b) and (m[i]
end;

writeln ('Min ', m[min],' Max ', m[max]) ;

end.