Question

Решите пожайлуста срочно в паскале

1.задан массив x[1..20], элементы которого выбираются случайным образом из отрезка [-30;80]. Отсортировать все элементы с 5-го по 15-й по возрастанию
2.задан массив B[1..10], элементы которого вводятся с клавиатуры. Отсортировать все элементы с m-го по k-ый по убыванию. Числа m и k целые, вводятся с клавиатуры. например при m=3 и k=8 сортируются элементы только 3-го по 8-ой

Answer 1

1
program ss;
var
   x:array[1..20] of integer;
   i,j,z:integer;
begin
   randomize;
   for i:=1 to 20 do
      x[i]:=random(111)-30;
   for i:=6 to 15 do
      for j:=15 downto i do
         if(x[j-1]>x[j]) then begin
            z:=x[j-1];
            x[j-1]:=x[j];
            x[j]:=z;
         end;
   for i:=1 to 20 do
      write(x[i],' ');
end.

2
program ss;
var
   b:array[1..10] of integer;
   m,k,i,j,z:integer;
begin
   readln(m,k);
   for i:=1 to 10 do
     read(b[i]);
   for i:=m+1 to k do      for j:=k downto i do         if(b[j-1]<b[j]) then begin            z:=b[j-1];            b[j-1]:=b[j];            b[j]:=z;         end;
   for i:=1 to 10 do
     write(b[i],' ');
end.