Форум программистов [Powered by Invision Power Board]

Код

{--------------------------------------------------}
{HEADER}
program ORIANDER;
uses crt;
const n=3;m=6;
type vec=array[1..n,1..m] of integer;
var i,j:integer; a:vec;
{/HEADER}
{--------------------------------------------------}
{PROCEDURE}
procedure sort(n1:integer;var b:vec;i1,j1:integer);
var u,p:integer;
begin
 for i1:=1 to n1-1 do
 for u:=i1+1 to n do
 if b[i1,j1]>b[u,j1] then
  begin
       p:=b[i1,j1];
       b[i1,j1]:=b[u,j1];
       b[u,j1]:=p;
  end;
end;
{/PROCEDURE}
{--------------------------------------------------}
{ENTER ARRAY}
begin clrscr;
 writeln('Vvedit matrizu 3x6');
 for i:=1 to n do
 for j:=1 to m do
 read(a[i,j]);
{/ENTER ARRAY}
{--------------------------------------------------}
{WRITE ENTERED ARRAY}
 writeln('matriza:');
 for i:=1 to n do
   begin
     for j:=1 to m do
         write(a[i,j],' ');
         writeln;
   end;
{/WRITE ENTERED ARRAY}
{--------------------------------------------------}
{PROCEDURE QUERY}
 for j:=1 to m do
 if odd(j) then sort(n,a,i,j); {k_iti,p-z:matr,p_z:iti,p_z:jiti}
{/PROCEDURE QUERY}
{--------------------------------------------------}
{WRITE NEW ARRAY}
 writeln('vidsortwana matriza:');
 for i:=1 to n do
  begin
   for j:=1 to m do
   write(a[i,j],' '); writeln;
  end;
{/WRITE NEW ARRAY}
{--------------------------------------------------}
{FOOTER}
 readkey
end.
{/FOOTER}
{--------------------------------------------------}