Решить средствами excel: имеются три участка земли, на которых будут засеяны кукуруза, пшеница, ячмень и просо. площадь каждого из участков соответственно равна 600, 180 и 220 га. с учетом наличия семян кукурузой, пшеницей, ячменем и просом следует соответственно засеять 290, 180, 110 и 420 га. урожайность каждой из культур для каждого из участков различна и задается матрицей: 40 45 50 30 28 22 18 22 14 24 18 26 определить сколько гектаров каждой культуры на каждом из участков следует засеять так, чтобы общий сбор зерна был максимальным.

//pascal abc.net v3.1 сборка 1219 const   n=15;   var   ar: array[1..n] of integer;   pro,i,k: uint64; begin   randomize;   pro: =1;   writeln('first array: ');   for i: =1 to n do   begin     ar[i]: =random(22,23); //серьёно?     write(ar[i]: 4);     pro: =pro*ar[i];   end;   writeln;   writeln('pro=',pro);   write('enter value: ');   readln(k);   writeln('final array: ');   for i: =1 to n do   begin     ar[i]: =ar[i]+k;     write(ar[i]: 6);   end; end. пример работы программы: first array:   23   23   22   22   22   22   23   23   23   22   23   22   22   23   23 pro=10868183115618730368 enter value: 3 final array:     26     26     25     25     25     25     26     26     26     25     26     25     25     26     26

//pascal abc.net v3.1 сборка 1219 const   n=15;   var   ar: array[1..n] of integer;   i,sum: integer; begin   randomize;   writeln('first array: ');   for i: =1 to n do   begin     ar[i]: =random(5,15);     write(ar[i]: 4);     if i< =6 then     sum: =sum+ar[i];   end;   writeln;   writeln('sum=',sum);   writeln('final array: ');   for i: =1 to n do   begin     ar[i]: =ar[i]*7;     write(ar[i]: 6);   end; end. пример работы программы: first array:     9   15   5   12   13   6   11   7   6   14   13   6   6   10   11 sum=60 final array:       63   105     35     84     91     42     77     49     42     98     91     42     42     70     77