массив в паскале

[Olgaandsasha]

помогите подалуйста.
Program olga;
var
X: array [1..30] of Integer;
i: Integer;
begin
randomize;
writeln('massiv C=');
for i:=1 to 30 do
begin
X[i]:=-50+random(191);
writeln(X[i]:5);
end;
for i:=1 to 30 do begin
Y[i]:=exp(1/3*ln(X[i]*sqr(1-X[i])));
writeln(Y[i]:5);
...
а как переписать положительные элементы массивов X и Y в массив Z подряд?

[Necare]

в смысле подряд? как - то по возрастанию или убыванию элементов? или сперва элемент массива х, а потом y? или сперва массив x, а потом у?

[Olgaandsasha]

просто сначала х или у

[Necare]

мб x, а потом у?а вы уверены, что код, который вы продемонстрировали рабочий?

[Olgaandsasha]

да. так будет правильней. просто в задании ничего не указано

[AVer]

Клон темы http://programmersforum.ru/showthread.php?t=174612