Упорядочить диапазон элементов массива - Turbo Pascal - Ответ 8344361

type
  TElement = integer;

if a[i] mod 5=0 then begin

program test;
 
const
  NMax = 40;
  NSortMin = 8;
  NSortMax = 38;
type
  TElement = integer;
  TMas = array[1..NMax] of TElement;
var
  A: TMas;
  i, j, Indx: integer;
  tmp: TElement;
begin
  randomize;
  for i := 1 to NMax do
  begin
    a[i] := 100 + Random(900);
  end;
  WriteLn('До сортировки:');
  for i := 1 to NMax do
    Write(a[i], ' ');
  WriteLn;
  for i := 1 to NMax do
    if (a[i] mod 5 = 0) and (i >= NSortMin) and (i <= NSortMax) then
      Write('*** ')
    else
      Write('    ');
  writeln;
  for i := NSortMin to NSortMax do
  begin
    if a[i] mod 5 <> 0 then
      continue;
    Indx := i;
    for j := i + 1 to NSortMax do
    begin
      if (a[j] mod 5 = 0) and (a[j] < a[Indx]) then
        Indx := j;
    end;
    tmp  := a[i];
    a[i] := a[Indx];
    a[Indx] := tmp;
  end;
  WriteLn('отсортирован:');
  for i := 1 to NMax do
    Write(a[i], ' ');writeln;
  for i := 1 to NMax do
    if (a[i] mod 5 = 0) and (i >= NSortMin) and (i <= NSortMax) then
      Write('*** ')
    else
      Write('    ');
  writeln;
  readln;
end.