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