Дан массив n*10 необходимо его отсортировать , разработайте программу сортировки по убыванию методом выбора. в паскале=***

procedure findmin(startindex: integer;                     var lowindex: integer);       var lowelem: real;               u: integer;   begin       lowindex : = startindex;       lowelem : = m[startindex];       for u: =startindex+1 to n do          if m[u] < lowelem then              begin                   lowelem : = m[u];                     lowindex : = u             end   end;

begin       for j: =1 to n-1 do         begin                 findmin(j, i);                 swap(m[j],m[i])        end end.

Var    a,b,c,max: integer; begin   write ('введите а,b,c через пробел: ');   readln (a,b,c);   if a> b      then       if a> c          then begin max: =a; a: =-a end         else begin max: =c; c: =-c end     else       if b> c          then begin max: =b; b: =-b end         else begin max: =c; c: =-c end;         writeln;   writeln ('max = ',max);   writeln ('a = ',a,', b = ',b,', c = ',c); end. пример: введите а,b,c через пробел: -5 -2 -4 max = -2 a = -5, b = 2, c = -4

Var    n,count,i: integer;   a: array[1..100] of integer; begin     randomize;   write ('введите n: ');   readln (n);   count: =0;   for i: =1 to n do begin     a[i]: =random(1,10);     write (a[i],' '); // для наглядности. можно удалить     if (a[i]> 5) and (a[i] mod 2 =1)       then begin            a[i]: =7;           count: =count+1       end   end;   writeln;   for i: =1 to n do      write (a[i],' ');   writeln;   writeln ('count = ',count); end. пример: введите n: 10 1 9 6 9 9 4 8 8 9 6  1 7 6 7 7 4 8 8 7 6  count = 4