profile
Опубликовано 5 лет назад по предмету Информатика от adelyafax

Отсортировать массив и найти количество различных чисел в нем.Паскаль

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.1, сборка 1201 от 18.03.2016
    begin
      var a:=ArrRandom(ReadInteger('n='),1,10); a.Println;
      var d:=new dictionary<integer,integer>;
      foreach var e in a.Sorted do d[e]:=d.Get(e)+1;
      d.Println(NewLine)
    end.

    Тестовое решение:
    n= 15
    8 4 8 6 7 8 4 4 7 2 4 5 5 5 7
    (2,1)
    (4,4)
    (5,3)
    (6,1)
    (7,3)
    (8,3)