Question

[60 баллов] Одномерный массив
Массив M[22] Диапазон 1..999

Вывести отдельно элементы массива, в записи которых есть цифра 0 и посчитать их количество.

Answer 1

function Contains0(n : integer): boolean;

begin

 while n > 0 do

  if n mod 10 = 0 then

  begin

    Result := True;

    Exit

  end

  else

    n := n div 10;

end;

begin

 var M := ArrRandom(22, 1, 999);

 M.Println;

 var k := 0;

 M.Where(p -> Contains0(p)).Foreach(p -> begin Print(p); Inc(k) end);

 Writeln(NewLine, k)

end.