Условие:

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

Решение:

Program Zadacha3;

uses crt;

const n=100;

procedure obmen (var x,y: integer);

var t:integer;

begin t:=x;

x:=y;

y:=t;

end;

var

A:array [1..n] of integer;

i,k,j:integer;

begin

clrscr;

writeln ('vvedite razmer massiva');

readln (k);

writeln ('vvedite elementy massiva');

for i:=1 to k do

readln (A[i]);

for j:=1 to k-1 do

for i:=1 to k-j do

if A[i]>A[i+1] then

obmen (A[i], A[i+1]);

writeln ('resultat:');

for i:=1 to k do

writeln (A[i]);

readln;

end.