Количество различных элементов — 2

Дан список. Посчитайте, сколько в нём различных элементов, не изменяя самого списка.

Входные данные

Вводится список чисел. Все числа списка находятся на одной строке. Все числа целые неотрицательные и не больше 1000
1000
.

Выходные данные

Выведите ответ на задачу.

1. m

2. real

3. 100

4. c

5. 15

6. m[c]

7. нет

8. [5,10]

9. real

10. произведение элементов массива отличных от 0

Объяснение:

m (имя переменной): array (тип переменной - массив) [1..100] ([минимальное значение индекса массива..максимальное значение индекса массива) of real (тип элементов массива)

количество элементов массива = максимальное значение индекса массива - минимальное значение индекса массива + 1

real - вещественный тип

integer - целочисленный тип

random(6) - случайные числа из [0,5]

5 + random(6) - случайные числа из [5,10]

Const
  n = 15;

var
  i: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(100) - 50;
    write(a[i]:6);
    if a[i] < 0 then a[i] := sqr(i)
  end;
  writeln;
  writeln('Результирующий массив');
  for i := 1 to n do write(a[i]:6);
  writeln
end.

Тестовое решение:

Исходный массив
     3    37    40    17    20   -12   -27     4    34    -1     9    42    -6   -36    28
Результирующий массив
     3    37    40    17    20    36    49     4    34   100     9    42   169   196    28