Minmax2. Дано целое число $$N$$ и набор из $$N$$ прямоугольников, заданных своими сторонами — парами чисел $$(a, b)$$. Найти минимальную площадь прямоугольника из данного набора.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
program MinMax2; var S,a,b,Min,Max: Real; i,N:Integer; begin Write('N:'); Readln(N); for i:=1 to N do begin Write('a b:'); Readln(a,b); S:=a*b; if i=1 then begin Min:=S; Max:=S; end; if S<Min then Min:=S; if S>Max then Max:=S; end; Writeln(Min,' ',Max); end. |
Другие задачи из раздела Minmax можно посмотреть здесь.
Комментарии: