Algoritmus s použitím pole(Delphi) – Delphi – Fórum – Programujte.com

Zdravím, hledám nějakou dobrou duši která by mi pomohla s tímto programem ... stačí mi třeba vyvojový diagram kod už nejak dokážu sesmolit dohromady... nebo i naopak ;)

Zádání zní:

Sestave program ktery vytiskne zadanou čtvercovou matici řádu n a dále matici, která se od původní matice liší tím, že má navzajem zaměněný i-ty sloupec za i-ty sloupec

Tady máš kód, který vymění řádek za sloupec
Předpoklad: Matice A[1..n,1..n] -původní matice
Matice AV[1..n,1..n] - matice s vyměněným řádkem za sloupec
i je číslo řádku, který chceme měnit

for k := 1 to n do
for j := 1 to n do
begin
AV[j,k] := A[j,k];
if (j=i)or(k=i) then
AV[j,k] := A[k,j];
end;

Nebo úspornější varianta na psaní

for k := 1 to n do
for j := 1 to n do
if (j=i)or(k=i) then
AV[j,k] := A[k,j]
else
AV[j,k] := A[j,k];

Velice děkuju z pomoc