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

[Olgaandsasha]

Program olga;
var
X: array [1..30] of Integer;
i: Integer;
begin
randomize;
writeln('massiv C=');
for i:=1 to 100 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 подряд?

[AVer]

n:=0;
for i:=1 to 30 do
If x[i] > 0 Then
 Begin
 Inc(n);
 z[n]:=x[i];
 End;
for i:=1 to 30 do
If y[i] > 0 Then
 Begin
 Inc(n);
 z[n]:=y[i];
 End;

[Olgaandsasha]

а проверьте пожалуйста мою запись, не работает(((

[AVer]

Как минимум не объявлены массивы Y и Z.
Объяви как Real.
И переменную n как integer;

[Olgaandsasha]

так ведь в z неизвестно сколько элементов будет, там что указывать?

[AVer]

Тут либо динамические массивы использовать, что вряд ли предпологается, либо максимально возможное 60.

[Olgaandsasha]

а еще у меня в конце формулы, где массив у ищу, выводит "несоответствие типа". там что не так?

[AVer]

Напиши полный код, что получилось - посмотрим.

[Olgaandsasha]

Program olga;
var
X: array [1..30] of Integer;
Y: array [1..30] of Integer;
Z: array [1..60] of Integer;
i, n: 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);
n:=0;
for i:=1 to 30 do
if X[i]>0 then begin
n:=n+1;
Z[i]:=X[i];
end;
for i:=1 to 30 do
if Y[i]>0 then begin
n:=n+1;
Z[i]:=Y[i];
end;
writeln(Z[i]:5);

[AVer]

Y: array [1..30] of Integer;
Z: array [1..60] of Integer;

Я же сказал объявить как Real. Там явно не целые числа будут.

Y: array [1..30] of Real;
 Z: array [1..60] of Real;