Найти количество различных членов одномерного массива - Free Pascal

Формулировка задачи:

1. Дан целочисленный массив А, содержащий n элементов (n 20). Найти количество различных членов последовательности.

Код к задаче: «Найти количество различных членов одномерного массива - Free Pascal»

textual
uses fgl, types;
type t = specialize tfpgmap<integer, integer>;
var m : t;
// ...
    m := t.create;
    m.sorted := true;
    m.duplicates := dupignore;
    for i in x do m.add(i);
    writeln('Разных значений: ', m.count);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 4.250 из 5


СДЕЛАЙТЕ РЕПОСТ