Садовый участок прямоугольной формы имет площадь 500 кв. м. при каких размерах длины и ширины участка изгородь будет наимешьшей? нужно еще составить модель. подскажите, , как это сделать?

C=[] for a in 1..499       b = 500/a       if c == [] or c.min > 2*(a+b)             c[c.size] = 2*(a+b)             p "#{2*(a+b)} #{a} #{b}"       end end

Const   n=15; var   a: array[1..n] of integer;   i,t: integer; begin   randomize;   writeln('исходный массив');   for i: =1 to n do begin       a[i]: =random(50)+10;       write(a[i]: 3)       end;   writeln;   for i: =1 to n div 2 do       begin t: =a[i]; a[i]: =a[n-i+1]; a[n-i+1]: =t end;   writeln('результирующий массив');   for i: =1 to n do write(a[i]: 3);   writeln; end. пример исходный массив   25 19 47 34 22 54 52 11 40 13 25 47 29 50 58 результирующий массив   58 50 29 47 25 13 40 11 52 54 22 34 47 19 25

Const   n=10; var   a: array[1..n] of integer;   i,s,k: integer; begin   randomize;   writeln('исходный массив');   s: =0; k: =0;   for i: =1 to n do begin       a[i]: =random(31)-10;       write(a[i]: 4);       if a[i]< 5 then begin inc(k); s: =s+a[i] end       end;   writeln;   writeln('элементов, меньших 5: ',k,', их сумма равна ',s) end. пример исходный массив   18  18    9  -7    2 -10    9  16  11  -7 элементов, меньших 5: 4, их сумма равна -22