Question

Дан массив А из n элементов. Сформировать массивы X и Y из положительных и отрицательных элементов! Помогитииииииии

Answer 1

const n=10;

var a,x,y:array[1..n] of integer;

k,p,i:integer;

begin

for i:=1 to n do begin

a[i]:=random(51)-25;

write(a[i]:4);

end;

k:=1;

p:=1;

for i:=1 to n do begin

if a[i]>=0 then begin x[p]:=a[i]; p:=p+1; end;

if a[i]<0 then begin y[k]:=a[i]; k:=k+1; end;

end;

writeln;

for i:=1 to p do

write(x[i]:3);

writeln;

for i:=1 to k do

write(y[k]:3);

end.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var x := a.Where(p -> p > 0).ToArray;

 var y := a.Where(p -> p < 0).ToArray;

 x.Println;

 y.Println

end.

Answer 3

Конечно, я помогу вам сформировать массивы X и Y из положительных и отрицательных элементов массива A. Для этого вы можете использовать следующий псевдокод:

1. Создайте два пустых массива X и Y.
2. Пройдитесь по каждому элементу массива A.
3. Если текущий элемент положительный, добавьте его в массив X.
4. Если текущий элемент отрицательный, добавьте его в массив Y.

Вот пример на Python:

pythonCopy code
def split_positive_negative(arr):
    X = []  # Массив для положительных элементов
    Y = []  # Массив для отрицательных элементов

    for elem in arr:
        if elem > 0:
            X.append(elem)
        elif elem < 0:
            Y.append(elem)

    return X, Y

# Пример использования:
A = [1, -2, 3, -4, 5, -6]
X, Y = split_positive_negative(A)

print("Массив X (положительные элементы):", X)
print("Массив Y (отрицательные элементы):", Y)

Этот код разделит элементы массива A на положительные и отрицательные и вернет их в двух отдельных массивах X и Y. Вы можете заменить массив A на свой собственный массив с данными.