Составьте программу расположения элементов в массиве A(N) так, чтобы положительные были в...

Question

Составьте программу расположения элементов в массиве A(N) так, чтобы положительные были в конце. Заранее спасибо.

Pascal

Comments

порядок не должно изменится?

---

По всей видимости, нет. Нужно только, чтобы программа вывела на экран тот же массив, но все положительные оказались в конце

---

ок

Answer 1

Program gt;
var a:array[1..100]of integer;
n,i:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if(a[i]<=0)then write(a[i],' ');<br>for i:=1 to n do
if(a[i]>0)then write(a[i],' ');
end.

Comments

я сейчас посидел подумал, не мог бы ты написать, если возможно, с изменением порядка, то есть если в массиве были как положительные так и отрицательные, то положительные, при выводе на экран, стояли после отрицательных. За решение все равно спасибо

---

чтобы массив изменит?

---

дада

---

если не очень затруднит

---

program gt;
var a,b:array[1..100]of integer;
j,n,i:integer;
begin
read(n);
j:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if(a[i]<=0)then begin<br>j:=j+1;
b[j]:=a[i];
end;
for i:=1 to n do
if(a[i]>0)then begin
j:=j+1;
b[j]:=a[i];
end;
for i:=1 to n do
begin
a[i]:=b[i];
write(a[i],' ');
end;
end.

---

спасибо огромное

---

первое решение тоже правильное