Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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.