Написать подпрограмму с использованием множеств для вычисления количества положительных различных элементов в массиве - PascalABC.NET

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

3. Написать подпрограмму с использованием множеств для вычисления количества положительных различных элементов в массиве целых чисел.

Решение задачи: «Написать подпрограмму с использованием множеств для вычисления количества положительных различных элементов в массиве»

Листинг программы

begin
  var a := ArrRandom(ReadlnInteger('N ='), -10, 10);
  writelnformat('Массив: {0}{2}Количество различных положительных: {1}',
    a.JoinIntoString, a.Where(v -> v > 0).Distinct.Count, NewLine);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования PascalABC.Net.

Строка с объявлением переменной a принимает массив от пользователя, используя функцию ArrRandom(), которая генерирует случайные значения в заданном диапазоне от -10 до 10.
Выводится сообщение формата: Массив: [начало массива] [конец массива] Количество различных положительных: [количество положительных элементов].
Используется метод JoinIntoString(), который объединяет элементы массива в одну строку, разделенную символом новой строки.
Метод Where(v -> v > 0) отбирает только положительные элементы массива.
Метод Distinct.Count подсчитывает количество уникальных элементов в массиве.
В конце работы программы выводится результат на экран.