Question

сделайте пожалуйста на паскале, буду благодарен

Answer 1

Ответ:

Объяснение:

procedure sort(var x: array of integer);

var

 i, j, t: integer;

begin

 for i := low(x) + 1 to high(x) do

   begin

     t := x[i];

     j := i - 1;

     while (j > 0) and (x[j] < t) do

       begin

         x[j + 1] := x[j];

         dec(j)

       end;

     x[j + 1] := t

   end

end;

 

const

 m = 5;

 n = 10;

var

 a: array[1..m, 1..n] of integer;

 i, j: integer;

begin

 randomize;

 writeln('Исходный массив:');

 for i := 1 to m do

   begin

     for j := 1 to n do

       begin

         a[i, j] := -99 + random(199);

         write(a[i, j]:4)

       end;

     writeln

   end;

 sort(a[1]);

 sort(a[m]);

 writeln('Массив с отсортированными первой и последней строками:');

 for i := 1 to m do

   begin

     for j := 1 to n do write(a[i, j]:4);

     writeln

   end;

 readln

end.