Задана матрица в(n, m определить количество столбцов, по возрастанию. каждый второй столбец упорядочить по возрастанию и найти, на сколько увеличилось количество таких столбцов в паскале решить)

Const
n=5;m=10;
var
b:array[1..n,1..m]of integer;
i,j,k,buf,l:integer;
begin
    for i:=1 to n do
         begin
           writeln;
              for j:=1 to m do
                 begin
                    b[i,j]:=random(50);
                    write(b[i,j]:4);
                  end;
           end;
writeln;
for j:=1 to m do
   begin
      k:=0;
       for i:=1 to n-1 do
            if b[i,j]<b[i+1,j]then
                k:=k+1;
            if k=n-1 then
               buf:=buf+1;
    end;
k:=0;
for l:=2 to m do
   if l mod 2=0 then
     for i:=1 to n-1 do
       for j:=i+1 to n do
           if b[i,l]>b[j,l]then
               begin
                   k:=b[i,l];
                   b[i,l]:=b[j,l];
                   b[j,l]:=k;
                end;
writeln('увеличилось  ',m div 2-buf);
for i:=1 to n do
   begin
      writeln;
          for j:=1 to m do
             write(b[i,j]:4);
    end;
end.
       
                  

program z1;

const n=20;

var m:array [1..n] of integer;

i,Sp,S2p,Sp1,Sp2,ko,k2,k1:integer;

P:real;

begin

P:=1;

ko:=0;

k2:=0;

k1:=0;

for i:=1 to n do

begin

m[i]:=random(21)-10;

if m[i] > 0 then Sp:=Sp+m[i];

if (m[i] > 0) and (m[i] mod 2 = 0) then S2p:=S2p+m[i];

if i <= n div 2 then Sp1:=Sp1+m[i] else Sp2:=Sp2+m[i];

if m[i] <> 0 then P:=P*m[i];

if m[i] < 0 then ko:=ko+1;

if m[i] mod 2 = 0 then k2:=k2+1 else k1:=k1+1;

write(m[i]:5)

end;

writeln;

writeln('Сумма положительных элементов: ',Sp);

writeln('Сумма четных положительных элементов: ',S2p);

writeln('Сумма элементов в 1 половине массива: ',Sp1);

writeln('Сумма элементов во 2 половине массива : ',Sp2);

writeln('Произведение ненулевых элементов: ',P);

writeln('Количество отрицательных элементов: ',ko);

writeln('Количество с четными значениями: ',k2);

writeln('Количество с нечетными значениями: ',k1)

end.

Объяснение:

картинка

2.Корневые волоски находятся на всем протяжении корня.

3.Клетки корневого чехлика недолговечны.

4.Поступление воды и минеральных солей происходит только в зоне всасывания.

5.Зона всасывания находится между зоной роста и проводящей зоной.

6.Лист – единственный орган растения, в котором происходит фотосинтез.

7.Устьичные клетки не имеют хлорофилла.

8.Почка – это зачаточный побег.

9.Стержневая корневая система имеет один корень.

10.Придаточные корни развиваются из корешка зародыша.

11.Докажите, что луковица видоизмененный побег.