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

      1110           10111                         110111 +       11       +     111                       +101110                                 10001         11110                       1100101

1)program mas; uses crt; const nmax=100; var x: array[1..nmax]of integer; i,n,b,bcol,proz: integer; begin proz: =1; repeat begin clrscr; write('введите размер одномерного массива(n),n='); read(n); end; until n< =nmax; writeln('введите значения элементов массива: '); for i: =1 to n do read(x[i]); writeln('введенный массив: '); for i: =1 to n do write(x[i],' '); writeln; write('введите число b: '); read(b); for i: =1 to n do if x[i]< b then inc(bcol); writeln('количество элементов меньших b: ',bcol); for i: =1 to n do proz: =proz*x[i]; writeln('произведение всех элементов массива: ',proz); readln; end.2)program p1; var     x: array[1..100] of integer;     max,i,n: integer; begin write('введите количество элементов='); readln(n); writeln('исходный массив'); randomize; for i: =1 to n do   begin   x[i]: =random(101)-50;   write(x[i]: 3);   if (x[i]> =max) then max: =x[i];   end; writeln; writeln('новый массив'); for i: =1 to n do   begin   if (abs(x[i])=max) and (x[i]< > max) then x[i]: =1;   if (x[i]< > max) and (abs(x[i])< > max) then x[i]: =0;   write(x[i]: 3);   end; readln end.3)var   a: array[1..15] of integer;   i: integer;   av: integer;   begin   randomize;   for i : = 1 to 15 do a[i] : = random(40) + 10;   writeln('исходный массив: ');   for i : = 1 to 15 do write(a[i], ' ');   writeln;   av : = 1;   for i : = 1 to 15 do     if a[i] mod 7 = 0 then av : = av * a[i];   if av = 1 then writeln('массив не содержит элементов , которые кратны 7! ')   else writeln('произведение равно: ', av); end.4)uses crt; const n=31; var a: array[1..n] of integer;     i: byte;     max: integer;     sr: real; begin clrscr; writeln('vvedite temperaturu po dnyam: '); sr: =0; for i: =1 to n do   begin     write(i,' maya: ');     readln(a[i]);     sr: =sr+a[i]/31;   end; clrscr; writeln('massiv temperatur: '); max: =a[1]; for i: =1 to n do   begin     write(a[i],' ');     if a[i]> max then max: =a[i];   end; writeln; writeln('samye teplye dni s temperaturoj ',max,' grad'); for i: =1 to n do if a[i]=max then writeln(i,' maya'); writeln; write('srednya temperatura=',sr: 0: 1,' grad'); readln end.5)program prog5_2; const   n = 10;   var   a     : array [1..n] of integer;   i     : integer;   imin, imax : integer;   d, c, s     : integer;   begin     {заполнение массива а случайными числами}     randomize;     for i: =1 to n do       a[i]: =random(100);     {вывод массива а на экран}   writeln('исходный массив: ');   for i: =1 to n do     write(a[i]: 6);   writeln;     {нахождение индексов наибольшего и наименьшего эемаентов массива}   imin: =1;   {индекс наименьшего элемента}   imax: =1;   {индекс наибольшего элемента}   for i: =2 to n do   begin     if a[i] < a[imin] then       imin : =i;       if a[i] > a[imax] then       imax : = i;   end;     {вывод ответа}   writeln('наименьший элемент a[',imin,']=',a[imin]);   writeln('наибольший элемент a[',imax,']=',a[imax]);     {подсчет количества и суммы чисел между минимальным и максимальным значениями}   c: =0;       {количество}   s: =0;       {сумма}   for i : =imin to imax do