15 lines
290 B
ObjectPascal
15 lines
290 B
ObjectPascal
uses Исполнители;
|
|
|
|
begin
|
|
var посл := СлучайнаяПоследовательность(10);
|
|
посл.Вывести;
|
|
|
|
посл.Количество(значение -> Четное(значение)).Вывести;
|
|
|
|
var количество := 0;
|
|
foreach var значение in посл do
|
|
if Четное(значение) then
|
|
количество += 1;
|
|
количество.Вывести
|
|
end.
|
|
|