Садовый участок прямоугольной формы имеет площадь s=600м^2. при каких размерах длины и ширины участка длина изгороди будет наименьшей? составьте и модель. провести расчеты

# Код на ruby 2.2.3p173
min = 600*600
for width in 1..600
    height = 600.0 / width
    perimeter = 2 * (width + height)
    if perimeter < min
        min = perimeter
        p [width, height]
    end
end

Последний вывод
[24, 25]

если брать аналитически, то очевидно, что наименьший периметр будет у фигуры наиболее приближенной к кругу. Для прямоугольника это будет квадрат. А его стороны соответственно sqrt(600) = 10*sqrt(6) = 24.49489742783178

        static void Main()
        {
            int[,] arr = new int[3, 5];
            byte i = 0, j, nech = 0;
            while (i < 3)
            {
                j = 0;
                while (j < 5)
                {
                    Console.Write("arr[{0}, {1}] = ", i + 1, j + 1);
                    arr[i, j] = Int32.Parse(Console.ReadLine());
                    if (arr[i, j++]  2 == 1) nech++; //Сразу считаем нечётные элементы
                }
                Console.WriteLine();
                i++;
            }
            Console.WriteLine();
            for (i = 0; i < 3; i++) //Выводим массив
            {
                j = 0;
                while (j < 5)
                    Console.Write("{0,3}", arr[i, j++]);
                Console.WriteLine();
            }
            Console.WriteLine();
            int buf = arr[0, 2]; //Меняем местами
            arr[0, 2] = arr[2, 1];
            arr[2, 1] = buf;
            for (i = 0; i < 3; i++) //Выводим массив
            {
                j = 0;
                while (j < 5)
                    Console.Write("{0,3}", arr[i, j++]);
                Console.WriteLine();
            }
            long p = 1;
            for (j = 0; j < 5; j++)
                p *= arr[1, j];
            Console.WriteLine("Произведение эл. второй строк равно " + p);
            Console.WriteLine("Тут {0} несчётных элементов", nech);
            Console.ReadKey(false);
        }

Const
  m = 4;
  n = 3;

var
  a: array[1..m, 1..n] of integer;
  i, j, im, jm, mx, e: integer;

begin
  Randomize;
  mx := -1000;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      e := abs(a[i, j]);
      if mx < e then begin
        mx := e; im := i; jm := j
      end;
      write(a[i,j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный по модулю элемент a[', im, ';', jm, ']=', mx)
end.

Тестовое решение:

 -12 -36 -41
   7 -45  12
 -23  48   0
  -1  31  14

Максимальный по модулю элемент a[3;2]=48