1. запишите значения элементов массива, сформированного следующим образом: for i: =1 to 7 do a[i]: =1;

Элементов  одномерного  массива - 7 и каждый из них равен 1

Если считать вручную. сначала найдем сколько при таком колве ресурсов можно максимум создать изделий max a = min(20/2,15/3,16/4) = min(10,5,4) = 4 max b = min(20/3,15/1,12/3) = min(6.6,15,4) = 4 впринцепе выгоднее выпустить максимум изделия а и на остальные ресурсы в это получится 4а+3в = 29уе на всякий случай проверим и другие варианты. 0a + 4b = 12y.e. 1a + 4b = 17y.e. 2a + 4b = 22y.e. 3a + 4b = 27y.e. 4a + 3b = 29y.e. расчеты проводились кодом на руби pa = [2,3,4,0] pb = [3,1,0,3] costa=5 costb=3 for i in 0..4       a=0       b=0       praw = [20,15,16,12]       f = true       while a < i and f do             (.size).step(1) { |j| f = false if praw[j] - pa[j] < 0}             break if not f             (.size).step(1) { |j| praw[j] -= pa[j]}             a += 1       end       f = true       while f do             (.size).step(1) { |j| f = false if praw[j] - pb[j] < 0}             break if not f             (.size).step(1) { |j| praw[j] -= pb[j]}             b += 1       end       puts "#{a}a + #{b}b = #{costa*a + costb*b}y.e." end ответ  4a + 3b = 29y.e.

Var  s : string;   function conv(var astr : string): string;   var ch : char;             i : integer;     begin     conv: =' '; { na sluchai esli stroka budet pustoi}       for ch: ='a' to 'z' do         for i: =1 to length(astr) do if astr[i]=ch then astr[i]: =chr(ord(astr[i])-32);         conv: =astr;     end;     begin   writeln('enter string');   readln(s);   writeln(conv(s));   readln   end. для преобразования больших в маленькие замените -32 на +32 и в операторе for 'a' to 'z' поменяйте на большие