Minmax15. Даны числа $$B$$, $$C$$ $$(0 < B < C)$$ и набор из десяти чисел. Вывести максимальный из элементов набора, содержащихся в интервале ($$B$$, $$C$$), и его номер. Если требуемые числа в наборе отсутствуют, то дважды вывести $$0$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
program MinMax13; var B,C,R,Max:Real; MaxNum,i:Integer; begin Write('B:'); Readln(B); Write('C:'); Readln(C); Max:=-1; for i:=1 to 10 do begin Write(i,' число:'); Readln(R); if (B<R) AND (Max<0) AND (R<C) then begin Max:=R; MaxNum:=i; end; if (B<R) AND (R>Max) AND (R<C) then begin Max:=R; MaxNum:=i; end; end; if Max<0 then begin Max:= 0; MaxNum:=0; end; Writeln(MaxNum,' ',Max); end. |
Другие задачи из раздела Minmax можно посмотреть здесь.
Комментарии: