МатрицЫ

uses
  crt;
const
  str=3;{êîëè÷åñòâî ñòðîê}
  sto=3;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..sto] of integer;
  b:array [1..str*sto] of integer;
  i,j,maxB,max,m,temp:integer;
begin
  clrscr;
  maxB:=0;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {ñ÷èòàåì cóììû íå÷åòíûõ ñòðîê}
  for i:=1 to str do
  begin
    temp:=0;
    if odd(i) then
    begin
      for j:=1 to sto do
        temp:=temp+a[i,j];
      inc(maxB);
      b[maxB]:=temp
    end;
  end;
  {ñ÷èòàåì cóììû ÷åòíûõ ñòîëáöîâ}
  for i:=1 to sto do
  begin
    temp:=0;
    if odd(i)=false then
    begin
      for j:=1 to str do
        temp:=temp+a[j,i];
      inc(maxB);
      b[maxB]:=temp
    end;
  end;
  {âûâîäèì âåêòîð}
  writeln('Èñõîäíûé âåêòîð B:');
  write('[ ');
  for i:=1 to maxB do
      write(b[i]:2,' ');
  writeln(']');
  {ñîðòèðóåì B}
  max:=b[1];
  for i:=1 to maxB do
    for j:=i to maxB do
      if b[j]<b[i] then
      begin
        temp:=b[i];
        b[i]:=b[j];
        b[j]:=temp
      end;
  {âûâîäèì îòñîðòèðîâàííûé âåêòîð}
  writeln('Îòñîðòèðîâàííûé ïî âîçðàñòàíèþ âåêòîð B:');
  write('[ ');
  for i:=1 to maxB do
      write(b[i]:2,' ');
  writeln(']')
end.