Easy
Как-то так)
const
n=15;
var
z:integer;
i:integer;
a:array[1..n] of integer;
b:array[1..(n div 2)+1]of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(99)+1;
write(a[i],' ');
end;
writeln;
i:=-1;
z:=1;
while ibegin
i:=i+2;
b[z]:=a[i];
z:=z+1;
end;
for i:=1 to (n div 2)+1 do write(b[i],' ');
end.