сортировка массива по возрастанию с исключением сходных элементов Опции

[18192123]

дан массив целых чисел размера n=10. получить упорядоченный по возрастанию массив, содержащий все различные числа данного массива

[volvo]

Куда же проще? Тебе что, надо в том же массиве убрать дубликаты? Без второго массива? Тогда так (после сортировки):

  k := 0;
  i := 1;
  repeat

    while (i <= n) and (a[i - 1] = a[i]) do inc(i);
    if i <= n then begin
      inc(k);
      a[k] := a[i]; inc(i);
    end;

  until i > n;

(распечатывать первые K элементов...)

[18192123]

Тебе что, надо в том же массиве убрать дубликаты? Без второго массива? Тогда так (после сортировки):

большое спасибо!

Сообщение отредактировано: volvo - 3.11.2006 22:04