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

[Necare]

может быть я не прав, но смотрите:
в первом цикле вы заполняете массив z элементами x
во втором массиве вы заменяете элементы массива z элементами y.
во втором цикле заполнение должно происходить с позиции последнего элемента массива у и элементы массива х в массиве z отсутствуют.
Или я не прав?

[AVer]

Да, верно, недоглядел. Для этих целей введена переменная n.

[Olgaandsasha]

изменила все как сказали, но не выводит то что нужно(((

[AVer]

Program olga;
 var
 X: array [1..30] of Integer;
 Y: array [1..30] of Real;
 Z: array [1..60] of Real;
 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);
end;

n:=0;

for i:=1 to 30 do
if X[i]>0 then 
begin
 n:=n+1;
 Z[n]:=X[i];
end;

for i:=1 to 30 do
if Y[i]>0 then 
begin
 n:=n+1;
 Z[n]:=Y[i];
end;

for i:=1 to n do
writeln(Z[i]:5:2);

Как то так.

[Olgaandsasha]

все хорошо, только что такое арифметическое переполнение?

[Necare]

Olgaandsasha, если вы напишите своё задание - будет проще, не исключено что у вас, в изначальной версии кода ошибка.
Оно перестает выводить начиная с массива Y.

[AVer]

Оно перестает выводить начиная с массива Y.

Исправлено выше.

[Olgaandsasha]

дан массив Х{30 элементов}. вычислить Y[i]=(1/3*ln(X[i]*sqr(1-X[i]))). переписать положительные элементы массивов X и Y в массив Z подрядю найти сумму элементов массива Z, у которых номер краен 3 или 5.

[AVer]

Отлично. А проблема в чем?

[Olgaandsasha]

пишет перед формулой - арифметическое переполнение