[60 баллов] Одномерный массив
Массив M[22] Диапазон 1..999
Вывести отдельно элементы массива, в записи которых есть цифра 0 и посчитать их количество.
Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/77d/77de15ecacc9a723d8c9851432567328.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад