Question

Помогите пожалуйста!! очень важно. буду благодарен
Задачи по теме:
Сортировка массива
Задача 1.
Сгенерировать и отсортировать массив из Nцелых случайных чисел от 1 до 100 по невозрастанию методом пузырька. Вывести на экран элементы исходного и отсортированного массивов.
1
Задача 2.
Сгенерировать массив из 10-ти случайных чисел от –100 до 100 и отсортировать его по не убыванию квадратов значений элементов методом выбора.
Задача 2.
Массив A из 10-тицелых неотрицательных чисел вводится с клавиатуры. Найти разность значений его максимального и минимального элементов.
A[i] <50

Answer 1

Ответ:№1

var  

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

 i,j,N,T:integer;

begin

 write('Укажите кол-во эл-ов  -  ');  

 readln(N);

 

 writeln;

 

 for i:=1 to N do

 begin

   arr[i]:=1+random(100);

   

   write(arr[i],'  ');

 end;

 

 writeln;

 writeln;

 

 for i:=1 to N do

 begin

   

   for j:=1 to N do

     

   begin

     

     if arr[i]>arr[j] then

       

     begin

       

       T:=arr[j];

       arr[j]:=arr[i];

       arr[i]:=T;

       

     end;

   end;

 end;

 writeln('Сортировка массива');

 writeln;

 for i:=1 to N do

   write(arr[i],'  ');

end.  

Объяснение: