Диана собирается покрасить забор вокруг своего дома. у нее есть пять видов красок. для того чтобы выяснить , в какой цвет покрасить забор девочка нанесла краску разных цветов на доски забора. в результате весь забор оказался покрашенным в разные цвета. диана собирается заново закрасить забор в один цвет . на эту работу она хочет потратить как можно меньше сил. диане. известны число досок n(n меньше 100) и их цвет , один из пяти в интервале между 1 и 5 . ответ -минимальное количество окрашиваемых досок забора. нужно составить алгоритм 3 видов 50 !

//метод быстрой сортировки //pascal abc.net v3.1 сборка 1172 //по возрастанию const n=55; type ty=array[1..n] of integer; var ar: ty; s: integer; procedure quicksort(l,r: integer); var i,j,x,temp: integer;   begin   i: =l; //левый конец   j: =r; //правый конец   x: =ar[random(r-l+1)+l];     repeat       while ar[i]< x do inc(i); //пока выбранный элемент больше всех, что левее его(всё норм), увеличивать индекс       while x< ar[j] do dec(j); //пока выбранный элемент меньше всех, что правее его(всё норм), уменьшать индекс       if i< =j then //если левый индекс меньше или равен правому-продолжать         begin               temp: =ar[i];               ar[i]: =ar[j];               ar[j]: =temp;               inc(i); //чтобы не запустить бесконечную рекурсию               dec(j);         end;       until i> =j;   if l< j then quicksort(l,i); //l-левый конец нового витка, j-правый   if r> i then quicksort(i,r); //r-левый конец нового витка, i-правый end; begin randomize; writeln('first array: '); for s: =1 to n do   begin   ar[s]: =random(n);   write(ar[s]: 4);   end; quicksort(1,n); writeln; writeln('final array: '); ar.println; end. //по убыванию const n=55; type ty=array[1..n] of integer; var ar: ty; s: integer; procedure quicksort(l,r: integer); var i,j,x,temp: integer;   begin   i: =l; //левый конец   j: =r; //правый конец   x: =ar[random(r-l+1)+l];     repeat       while ar[i]> x do inc(i); //пока выбранный элемент больше всех, что левее его(всё норм), увеличивать индекс       while x> ar[j] do dec(j); //пока выбранный элемент меньше всех, что правее его(всё норм), уменьшать индекс       if i< =j then //если левый индекс меньше или равен правому-продолжать         begin               temp: =ar[i];               ar[i]: =ar[j];               ar[j]: =temp;               inc(i); //чтобы не запустить бесконечную рекурсию               dec(j);         end;       until i> =j;   if l< j then quicksort(l,i); //l-левый конец нового витка, j-правый   if r> i then quicksort(i,r); //r-левый конец нового витка, i-правый end; begin randomize; writeln('first array: '); for s: =1 to n do   begin   ar[s]: =random(n);   write(ar[s]: 4);   end; quicksort(1,n); writeln; writeln('final array: '); ar.println; end.

Const n=20; var a: array[1..n] of integer;     i, max, imax, min, imin : integer; begin randomize;   writeln('исходный массив: '); for i: =1 to n do   begin   a[i]: =random(101)-50;     write(a[i],' ');   end;   writeln; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =2 to n do   begin   if a[i] > max then begin max: =a[i]; imax: =i; end;   if a[i] < min then begin min: =a[i]; imin: =i; end;   end; writeln('max=',max,'   min=',min); a[imax]: =min; a[imin]: =max; writeln('измененный массив: '); for i: =1 to n do write(a[i],' ');     writeln; end. пример: исходный массив: -20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0  max=48   min=-38 измененный массив: -20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0