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

Question

Информатика

Митрий

5 августа, 16:31

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

+1

Ответы (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.