Looking for some help

[unknowngeek222]

Hey, so I made this program in free pascal  : 
PROGRAM foruthtask;
USES CRT;
CONST K=20  ;
VAR A : ARRAY[1..K,1..K] OF INTEGER;
N, M, I, J:INTEGER;
Z,X:INTEGER;
BEGIN
CLRSCR;
WRITE('rows N:');
READLN(N);
WRITE('columns M:');
READLN(M);
RANDOMIZE;
FOR I:=1 TO N DO
FOR J:=1 TO M DO A[I,J]:=RANDOM(61)-10;
WRITELN('MASVS A:');
FOR I:=1 TO N DO BEGIN
WRITELN;
FOR J:=1 TO M DO
WRITE(A[I,J]:4);
END;
READLN;
END.


And I have to put bubblesort into this, so it sorts numbers ascending, can someone please help?

[Gachr]

Pascal isn't used much any more, you'd be better off asking at Pascal-specific places or just switch to another, more popular language.

 

BTW: 1000th post, yay ;D

[Nineshadow]

Pseudocode:

procedure bubbleSort( A : list of sortable items )
   n = length(A)
   repeat 
     swapped = false
     for i = 1 to n-1 inclusive do
       /* if this pair is out of order */
       if A[i-1] > A[i] then
         /* swap them and remember something changed */
         swap( A[i-1], A[i] )
         swapped = true
       end if
     end for
   until not swapped
end procedure

 

[unknowngeek222]

On 6.5.2016. at 10:55 AM, Gachr said:

Pascal isn't used much any more, you'd be better off asking at Pascal-specific places or just switch to another, more popular language.

 

BTW: 1000th post, yay ;D

it's for school, thats why we have to use pascal...:/

[Gachr]

5 hours ago, unknowngeek222 said:

it's for school, thats why we have to use pascal...:/

What kind of school uses Pascal?

[clegger]

3 hours ago, Gachr said:

What kind of school uses Pascal?

The kind where the instructors are 70 years old?

[Gachr]

On 12/05/2016 at 5:37 PM, clegger said:

The kind where the instructors are 70 years old?

Fair enough haha. What country if I may ask?