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

@Halva · Регистрация: 02.11.2008

Студворк — интернет-сервис помощи студентам

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

Что-то я совсем запутался. Помогите грамотно оформить эту задачу

Вот что у меня получилось

Код

uses crt;


var
mas:array[1..11]of integer;
a,b,min,max,n,i:integer;
begin
writeln('Введите интервал a и b');
readln(a,b);

randomize;
for i:=2 to b-1 do
begin
mas[i]:=random(99);
writeln(mas[i]);
mas[b]:=b;
mas[1]:=a;
end;
min:=mas[1];
for i:=2 to b-1 do
if min>mas[i] then
begin
min:=mas[i]
end;
max:=mas[1];
for i:=2 to b-1 do
if max<mas[i] then
begin
max:=mas[i];
end;
writeln ('MAX ',max);
writeln('MIN ',min);
end.

@Puporev · 29.03.2009, 19:37

набор из десяти элементов.

mas:array[1..11]of integer;

for i:=2 to b-1 do

Все чудесней и чудесней. До десяти считать учимся?

@romych2004 · 30.03.2009, 00:29

Pascal

var
   mas:array[1..10] of integer;
   error:boolean;
   a,b,i:integer;
   min,max:integer;
begin
   writeln('Vvedite a,b');
   readln(a,b);
   error:=false;
   if (0>a) or (a>b) or (b>10) then
      error:=true;
   if not error then
   begin
      randomize;
      for i:=1 to 10 do
      begin
         mas[i]:=random(99);
         write(mas[i]);
         write(' ');
      end;
      writeln;
      min:=mas[a];
      max:=mas[a];
      for i:=a+1 to b do
      begin
         if (mas[i]<min) then min:=mas[i];
         if (mas[i]>max) then max:=mas[i];
      end;
      writeln('MIN= ',min);
      writeln('MAX= ',max);
   end else
      writeln('-1');
   readln;
end.

@Halva · 30.03.2009, 23:50 **[ТС]**

2 Puporev - Там не десять элементов, а два элемента и ещё десять между ними)))))

romych2004 - спасибо!!!

@Halva 24 / 24 / 2 Регистрация: 02.11.2008 Сообщений: 118
		1
	Найти Min и Max на интервале 29.03.2009, 19:24. Показов 1561. Ответов 3 Метки нет (Все метки) Даны числа a,b(0<a<b) и набор из десяти элементов. Найти минимальный1\| максимальный2 из элементов, содержащихся в интервале (a, b). Если требуемые элементы отсутствуют, то вывести -1. Что-то я совсем запутался. Помогите грамотно оформить эту задачу Вот что у меня получилось Код uses crt; var mas:array[1..11]of integer; a,b,min,max,n,i:integer; begin writeln('Введите интервал a и b'); readln(a,b); randomize; for i:=2 to b-1 do begin mas[i]:=random(99); writeln(mas[i]); mas[b]:=b; mas[1]:=a; end; min:=mas[1]; for i:=2 to b-1 do if min>mas[i] then begin min:=mas[i] end; max:=mas[1]; for i:=2 to b-1 do if max<mas[i] then begin max:=mas[i]; end; writeln ('MAX ',max); writeln('MIN ',min); end. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	29.03.2009, 19:37	2
	набор из десяти элементов. mas:array[1..11]of integer; for i:=2 to b-1 do Все чудесней и чудесней. До десяти считать учимся? 0

@Halva 24 / 24 / 2 Регистрация: 02.11.2008 Сообщений: 118
	30.03.2009, 23:50 [ТС]	4
	2 Puporev - Там не десять элементов, а два элемента и ещё десять между ними))))) romych2004 - спасибо!!! 0

Опции темы