Решаем задачи Абрамян на Паскале. Minmax3

Minmax3. Дано целое число $$N$$ и набор из $$N$$ прямоугольников, заданных своими сторонами — парами чисел $$(a, b)$$. Найти максимальный периметр прямоугольника из данного набора.

Решение:

program MinMax3;
uses
  SysUtils;

var
  P,a,b,Min:Real;
  i,N:Integer;

begin
  Write('N:');
     Readln(N);
  for i:=1 to N do
   begin
     Write('a b:');
     Readln(a,b);
     P:=2*(a+b);
     if i=1 then Min:=P;
     if P<Min then Min:=P;
   end;
  Writeln(Min);
end.

program MinMax3;

uses

SysUtils;

var

P,a,b,Min:Real;

i,N:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

Write('a b:');

Readln(a,b);

P:=2*(a+b);

if i=1 then Min:=P;

if P<Min then Min:=P;

end;

Writeln(Min);

end.

Другие задачи из раздела Minmax можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Minmax3

Комментарии:

Добавить комментарий Отменить ответ