Составьте алгоритм значений трех переменных по возрастанию, т.е. при любых исходных значениях а, в, с отсортируйте так, чтобы стало а

по возрастанию не всегда возможно!   к примеру набор чисел 5 5 8 ни как не отсортировать по возрастанию.  но по «неубванию» они отсортированы.  алгоритм таков:   1) ввести значения a, b, c  2) если a > b тогда поменять значения a и b  3) если a > b тогда поменять значения b и c  4) если a > b тогда поменять значения a и b  всё!   значения a, b и c отсортированы в порядке неубывания!

1.  pascalabc.net 3.3 const n=18; begin   var a: =arrrandom(n,0,100);   for var i: =0 to n-1 do begin     write(a[i],' ');     if (i+1) mod 6=0 then writeln;   end;   writeln('среднее арифметическое = ',a.average);   writeln('max = a[',a.indexmax,'] = ',a.max);   writeln('min = a[',a.indexmin,'] = ',a.min); end. 2. const n=18; var a: array[1..n] of integer; x,max,min,imax,imin,i: integer; begin randomize; for i: =1 to n do begin   a[i]: =random(101);   write(a[i],' ');   if i mod 6=0 then writeln;   end; x: =0; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =1 to n do   begin   x: =x+a[i];   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('среднее арифметическое = ',x/n: 6: 3); writeln('max = a[',imax,'] = ',max); writeln('min = a[',imin,'] = ',min); end. пример: 55 32 51 53 6 8294 27 43 61 56 2063 6 92 32 14 84среднее арифметическое = 48.389max = a[7] = 94min = a[5] = 6

Var i,j,k,m: integer;     s: string; begin   k: =0;   for i: =1 to 1000000 do   begin     s: =inttostr(i);     m: =0;     for j: =1 to (length(s) div 2) do     if s[j]< > s[length(s)-j+1] then m: =1;     if m=0 then     begin       inc(k); continue;     end;       m: =pos('0',s);     if m> 0 then     begin       inc(k); continue;     end;       m: =1;       for j: =2 to round(sqrt(i)) do      if i mod j = 0 then     begin       m: =0;       break;       end;       if m=1 then inc(k);     end;   k: =1000000-k;   writeln('осталось чисел: ',k); end. осталось чисел: 544011