Question

Помогите сделать информатику задание номер 8
И заранее спасибо

Answer 1

var

 temp, i, j: integer;

 A: array[1..9] of integer;

begin

 for i := 1 to 9 do // заполняем случайными числами от 0 до 10

 begin

   A[i] := random(10);

   write(A[i]:5);

 end;

 writeln();

 for i := 1 to 8 do

 for j := 1 to 8 do

 begin

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

   begin

     temp:=A[j];

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

     A[j+1]:=temp;

   end

 end;

 

 for i := 1 to 9 do // выводим отсортированный массив

 begin

   write(A[i]:5);

 end;    

end.