Паскаль (Процедура-сортировка одномерного массива)Не сортирует .

[Виктор Cadet]

зайдите в isq я вас добавил

[Виктор Cadet]

[BDA]

uses
  CRT;

type
  mas = array[1..3, 1..3] of real;
  masb = array[1..3] of real;
var a: mas; b: masb;
  i, j, n: integer;

procedure sor(var c: masb);
var i, j: integer; q: real;
begin
  for i := 1 to 2 do
    for j := i + 1 to 3 do
      if c[i] < c[j] then
      begin
        q := c[j];
        c[j] := c[i];
        c[i] := q;
      end;
end;

function kol(A: mas): integer;
var i, j, k: integer;
begin
  K := 0;
  for i := 1 to 3 do
    for j := 1 to 3 do
      if a[i, j] > 0
        then K := K + 1;
  kol := k;
end;

begin
  for i := 1 to 3 do
    for j := 1 to 3 do
    begin
      write('Input a[', i, ',', j, ']: ');
      readln(a[i, j]);
    end;
  j := 3;
  for i := 1 to 3 do
    b[i] := i + j - sin(i);
  writeln('vivod a');
  for i := 1 to 3 do begin
    for j := 1 to 3 do
      write(A[i, j]: 5: 2);
    writeln;
  end;
  writeln('vivod b');
  for i := 1 to 3 do
    write(b[i]: 5: 2);
  writeln;
  n := kol(A);
  writeln('kol-vo clenov>0: ', n);
  if n >= 5 then
    sor(b)
  else
  begin
    for i := 1 to 3 do
      a[i, i] := B[i];
  end;
  writeln('vivod a');
  for i := 1 to 3 do begin
    for j := 1 to 3 do
      write(A[i, j]: 5: 2);
    writeln;
  end;
  writeln('vivod b');
  for i := 1 to 3 do
    write(b[i]: 5: 2);
  readln;
end.