Program P_34; Const n=3; Var i, j, Lb, Rb: Integer; a, b : Array[1..n, 1..n] Of Integer; Begin WriteLn( 'A-matrisi'); For i:=1 to n do Begin For j:=1 to n do Begin read (a[i, j]) ; b[j, i]:= a[i, j]; Write(a[i, j]:5) End; WriteLn; End; Writeln; WriteLn( 'B-matrisi'); For i:=1 to n do Begin For j:=1 to n do Write(b[i, j]:5); WriteLn End; End.
Massivlərin nizamlanması. Massivlərin nizamlanması riyaziyyatda ən çox
istifadə olunan əməliyyatlardan biridir. Bir neçə nizamlama üsulu işlənmişdir.
Aşağıdakı misallarda elementləri təsadüfi ədədlər olan seçmə və yerdəyişmə üsulu
ilə matrislərin nizamlama proqramları verilmişdir:
