{ DVOJPOLE.PAS Copyright (c) Pheo } { Výmena riadkov a stĺpcov v matici. } { } { Datum:26.04.2005 http://www.trsek.com } program dvojpole; uses crt; const n=5; type matica=array [1..n,1..n]of integer; var i,j,pom:integer; a:matica; begin clrscr; for i:=1 to n do for j:=1 to n do begin writeln ('zadaj prvok a[',i,';',j,']'); read (a[i,j]); end; clrscr; writeln('povodna matica:'); writeln; for i:=1 to n do begin for j:=1 to n do write (a[i,j],' '); writeln;writeln; end; writeln; for i:=1 to n do begin for j:=i+1 to n do begin pom:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=pom; end; end; writeln('Otocena matica (vymenene riadky a stlpce)'); writeln; for i:=1 to n do begin for j:=1 to n do write (a[i,j],' '); writeln;writeln; end; repeat until keypressed; end.