Работа 3.6 Упр.23 ГДЗ Семакин 10 класс (Информатика)

Задача

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности.

Подробный ответ

Нужно найти количество различных чисел в массиве. Для этого перебираем каждый элемент и проверяем, встречается ли он среди остальных элементов последовательности. Если такой же элемент уже найден, то текущий элемент не считаем новым. Если совпадений нет, увеличиваем счётчик различных чисел.

var
  i, j, cm: Integer;
  povtor: Boolean;
const
  m: array[1..10] of Integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2);
begin
  cm := 0;
  for i := 1 to 10 do
  begin
    povtor := False;
    for j := 1 to 10 do
    begin
      if (i <> j) and (m[i] = m[j]) then
      begin
        povtor := True;
        Break;
      end;
    end;
    if not povtor then cm := cm + 1;
  end;
  WriteLn(cm);
end.