сортировка массивов - Pascal - Ответ 712667

program sort;
var
matr:array[1..100,1..100] of integer;
mas:array[1..1000] of integer;
i,j,m,kol,c:integer;
begin
  randomize;
  write('введите m ');
  readln(m);
  for i:=1 to m do
  begin
    for j:=1 to m do
    begin
      matr[i,j]:=random(101)-50;
      write(matr[i,j]:4);
    end;
    writeln;
  end;
  kol:=0;
  for j:=1 to m do
  begin
    for i:=1 to m-j do
    begin
      if matr[i,j] >=0 then
      begin
        kol:=kol+1;
        mas[kol]:=matr[i,j];
      end;
    end;
  end;
  writeln;
  writeln('до сортировки: ');
  for i:=1 to kol do
  write(mas[i]:4);
  writeln;
  writeln('после сортировки: ');
  for i:=1 to kol-1 do
  begin
    for j:=i+1 to kol do
    begin
      if mas[i]>=mas[j] then
      begin
        c:=mas[i];
        mas[i]:=mas[j];
        mas[j]:=c;
      end;
    end;
  end;
  for i:=1 to kol do
  write(mas[i]:4);
  readln;
end.