//прога на Pascal`e
var
a: array of longint;
y: array of longint;
b: longint;
i, k, k2: byte;
//--------------------------------------------------------------
begin
randomize;
write ('Введите кол-во элементов изначального массива: ');
read (k);
setLength (a, k);
for i:=0 to k-1 do
{read (a[i]);} a[i]:=random (100000);
write ('Введите величину b: ');
read (b);
for i:=0 to k-1 do
if a[i]<=b then<br>begin
k2:=k2+1;
setLength (y, k2);
y[k2-1]:=a[i];
end;
write (a, y);
end.