//PascalABC.NET
const
n = 10; // Задаем размер массива
var
a: array [1..n] of integer;
i,kol:integer;
begin
for i:=1 to n do begin
A[i]:=(random(30)-15);
if a[i] mod 2 = 0 then begin
write(a[i],' ');
kol:=kol+1;
end;
end;
writeln;
if kol <> 0 then writeln('Кол-во четных элементов: ',kol)
else writeln('Четных элементов нет');
<span>end.</span>
Нет, только со стороны человека
Ребёнок живое существо,а кукла нет! Ребёнок может думать,а кукла не может! Собы́тие<span> — то, что имеет место, происходит, наступает в произвольной </span>точке пространства-времени. А текст <span>зафиксированная на каком-либо материальном носителе человеческая мысль; в общем плане связная и полная последовательность символов.</span>