Question

Turbo pascal или Pascal abc. Сортировать отрицательные элементы массива с помощью прямого выбора.

Answer 1

const n=10;

var i,j,v:integer;

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

begin

write ('       Исходный массив: ');

for i:=1 to n do begin

a[i]:=random(21)-10;

write(a[i]:4);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if (a[i]<0) and (a[j]<0) then

if a[i] < a[j] then

begin

v:=a[i];

a[i]:=a[j];

a[j]:=v;

end;

writeln;

write ('Преобразованный массив: ');

for i:=1 to n do

write(a[i]:4);

end.