Question

СОСТАВЬТЕ ПРОГРАММЫ ПО ИНФОРМАТИКЕ(для паскаля), ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!!! заранее спасибо тем, кто поможет, даю все баллы)​

Answer 1

Обе программы написаны и протестированы на PascalABC.NET 3.8.2

#1

var

 arr : array[1..31] of integer;

 temp : integer;

 begin

   randomize;

   write('Сгенерированный массив: ');

   for var i := 1 to 31 do

   begin

     arr[i] := random(88, 100);

     write(arr[i], ' ');

   end;

   

   for var i := 1 to 31 do

     for var j := 1 to 30 do

     begin

       if arr[j] < arr[j+1] then

       begin

         temp := arr[j];

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

         arr[j+1] := temp;

       end;

             

     end;

       writeln;

       write('Отсортированный массив: ');

       for var i := 1 to 31 do

         write(arr[i], ' ');

 end.

#2

var

 arr : array[1..500] of integer;

 temp : integer;

 begin

   randomize;

   writeln('Сгенерированный массив: ');

   for var i := 1 to 500 do

   begin

     arr[i] := i * 2 - 1;

     write(arr[i], ' ');

   end;

   

   for var i := 1 to 500 do

     for var j := 1 to 499 do

     begin

       if arr[j] < arr[j+1] then

       begin

         temp := arr[j];

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

         arr[j+1] := temp;

       end;

             

     end;

       writeln;

       writeln('Отсортированный массив: ');

       for var i := 1 to 500 do

         write(arr[i], ' ');

 end.