Вопрос по информатике:
Дан массив целых чисел.Найти max и min значения среди чисел,принадлежащих интервалу [a;b]. Числа a и b вводятся с клавиатуры. Предполагается, что такие числа в массиве есть.
- 20.01.2018 03:56
- Информатика
- remove_red_eye 13077
- thumb_up 22
Ответы и объяснения 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]
writeln('Min ',m[min],' Max ',m[max]);
end.
- 22.01.2018 00:14
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.