Výměna řádků/sloupců – Delphi – Fórum – Programujte.com

Dobrý den,učím se programovat a narazila jsem na problém s kterým si nevím rady. Mám vytvořit matici o m řádcích a n sloupcích. A úkolem je vyměnit první a poslední sloupec(řádek) matice. Chápu jak se to udělá když si přes edity vložím jaké chci prohazovat, ale pokud to mám takto zadaný, tak si s tím nevím vůbec rady.Omlouvám se pokud to již bylo někde řešeno

Třeba takto:

type
  TMatice=array of array of Extended;

function VyRadky(z,kam: Integer; A: TMatice): TMatice;
var m: Integer;
  por1,por2: TMatice;
begin
  m := Length(A[0]);
  SetLength(por1,1,m);
  SetLength(por2,1,m);
  por1[0] := A[z];
  por2[0] := A[kam];
  A[kam] := por1[0];
  A[z] := por2[0];
  Result := A;
end;
//Zde můžeš vyměňovat odkudkoliv kamkoliv (pokud první s posledním, pak
//z=0,kam=Length(A)-1)

#1 VS
Jak jsi určitě pochopila ta funkce co jsem ti napsal, tak vyměňuje řádky.