Описать функцию card, подсчитывающую количество элементов в множестве - PascalABC.NET

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

Дано множество натуральных чисел A, находящихся в диапазоне от 0 до 99. Описать функцию card(A), подсчитывающую количество элементов в множестве А

Решение задачи: «Описать функцию card, подсчитывающую количество элементов в множестве»

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

function card(A : Set of Integer) : Integer;
begin
  Result := 0;
  foreach var N in A do
    Result += 1;
end;
 
var
  A : Set of Integer;
begin
  for var i := 1 to 20 do
    A += [Random(0, 99)];
  WriteLn(A);
  WriteLn(card(A));
end.

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

В функции card происходит подсчет количества элементов в множестве A.
Переменная Result инициализируется значением 0.
В цикле foreach перебираются все элементы множества A.
К результату приписывается единица.
В цикле for генерируются 20 случайных чисел от 0 до 99 и добавляются в множество A.
Выводится на экран множество A.
Вызывается функция card и выводится на экран результат подсчета количества элементов в множестве A.

Оцени полезность:

8 голосов , оценка 4.25 из 5

Похожие ответы