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

[Виктор Cadet]

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

       procedure sor(c:masb);
  var i, j:integer; q:real;
    begin
     for i:=2 to 3 do
     for j:=3 downto 2 do
     if c[j]>c[j-1] then
     begin
     q:=c[j];
     c[j]:=c[j-1];
     c[j-1]:=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 begin
         For j:=1 to 3 do
          readln(a[i,j]);
        end;
        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  begin
for j:=1 to 3 do
if i=j then
a[i,j]:=B[i];
end;
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);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BDA]

Попробуйте:

procedure sor(var c:masb);

[Виктор Cadet]

Тупо подставить?

[Виктор Cadet]

не сортирует=((

[BDA]

Напишите условие задачи, а то я не понимаю, зачем вообще вызывается сортировка (причем массив всегда получается один и тот же, который сортируем).

[Виктор Cadet]

сейчас скину фото с вопросом...

[Виктор Cadet]

как закинуть фото?

[BDA]

Можно на radikal, а сюда вставить кнопкой "изображение".

[Виктор Cadet]

"изображение"не подходит так как это закачка с сайта.

[BDA]

Почему же не подходит???

Копируйте ссылку из строчки "1. Ссылка"