Question

Дан массив А(к).Из элементов массива А сформировать массив В таким образом:сначала поместить все отрицательные массивы элемента А,потом равные нулю,а положительные в конце.

Answer 1

Program main;
Var A, B: array [1..100] of integer;
k, n, i: byte;
Begin
i:=1;
Readln (n);
For k:=1 to n do
Readln(A[k]);
For k:=1 to n do
If A[k]<0 then
Begin
B[i]:=A[k];

i:=i+1;
End;
For k:=1 to n do
If A[k]=0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For k:=1 to n do
If A[k]>0 then
Begin
B[i]:=A[k];
i:=i+1;
End;
For i:=1 to n do
Writeln (B[i]);
Readln;
End.

Answer 2

В простом варианте:

 

const nn=50;
var
i,n,j:integer;
a,b:array [1..nn] of integer;  
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
j:=1;
for i:=1 to n do if a[i]<0 then begin b[j]:=a[i]; j:=j+1; end;
for i:=1 to n do if a[i]=0 then begin b[j]:=a[i]; j:=j+1; end;
for i:=1 to n do if a[i]>0 then begin b[j]:=a[i]; j:=j+1; end;
for i:=1 to n do write(b[i],' ');
end.