var
x,y:array[1..8]of integer; {два массива }
i,j:integer; {i - для цикла, j - номер элемента в массиве y}
BEGIN
{загружаем массив x положительными и отрицательными числами}
randomize;
for i:=1 to 8 do x[i]:=random(9)-random(9);
writeln('Исходный массив X:');
for i:=1 to 8 do write(' ',x[i]);
writeln;
j:=0;
for i:=1 to 8 do if x[i]<0 then {находим отрицательные числа в массиве x}
begin
inc(j); {нашли, и }
y[j]:=x[i]; {записываем число в массив y }
end;
for i:=1 to 8 do if x[i]=0 then {находим числа равные нулю }
begin
inc(j);
y[j]:=x[i];
end;
for i:=1 to 8 do if x[i]>0 then {находим положительные числа }
begin
inc(j);
y[j]:=x[i];
end;
writeln('Новый массив Y:');
for i:=1 to 8 do write(' ',y[i]);
readln;
END.
Похожие записи/страницы:
- Дан массив X(N). Получить новый массив Y(N) такой, что в нем сначала идут положительные числа, затем нулевые, и…
- Дана целочисленная квадратная матрица. Найти наименьшее из значений элементов расположенных в области…
- В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму всех элементов, расположенных между…
- Массив M состоящий из 30 элементов, переоформить так, чтобы вначале стояли все положительные и равные нулю…
- Задан одномерный массив x(n) (n
- Даны натуральное число n и массив A(n). Переформировать массив, расположив вначале массива все отрицательные…
- Дан массив определить мах элемент массива и элемент являющийся мах без учета этого элемента. Массив одномерный -…
- Дан массив А, сформировать из целых частей отрицательных элементов этого массива другой массив, используя…