Question

1. Дан одномерный массив C1[1..15]. Требуется упорядочить его в порядке нестрогого убывания.

2. Дан двумерный массив C1_2[1..10, 1..7]. Требуется поменять местами его 5-ю и 7-ю строки.

Answer 1

1. 

program HelloWorld;

var n:array [1..15] of integer;

var c: integer;

var z,i: SmallInt;

 

begin

 for i:=1 to 15 do

     n[i] := random(1000);

      repeat

 z:=0;

 //сортировка

 for i:=1 to 15 do

     if n[i]> n[i+1] then

        begin  

            c:=n[i];

            n[i]:=n[i+1];

            n[i+1]:=c;

            z:=1;

        end;

    until z=0;

 for i:=1 to 15 do

    writeln(n[i])    

end.

2.

program HelloWorld;

var n:array [1..10,1..7] of integer;

var c: integer;

var z,i: SmallInt;

 

begin

 for i:=1 to 10 do

   for z:=1 to 7 do

     n[i,z] := random(1000);

 

 for i:=1 to 10 do

   for z:=1 to 7 do

   begin

     write('A[',i,',',z,']=');

     writeln(n[i,z]);

   end;

 

 for i:=1 to 10 do

   for z:=1 to 7 do

   begin

     if i = 5 then

       begin

         c := n[5,z];

         n[5,z] := n[7,z];

         n[7,z] := c;

        end;

   end;

 

writeln('=======================');

 

 for i:=1 to 10 do

   for z:=1 to 7 do

   begin

     write('A[',i,',',z,']=');

     writeln(n[i,z]);

   end;

    

end.