Условие:

В одномерном массиве, состоящем из N вещественных элементов, упорядочить элементы массива по убыванию модулей.

Решение:

Т.к. задача является простой, решим её «пузырьковым» методом.

Program Zadacha1;

uses crt;

const n=100;

procedure obmen (var x,y: real);

var t:real;

begin t:=x;

x:=y;

y:=t;

end;

var

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

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 i:=1 to k do

if A[i]<0 then A[i]:=abs(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]:3:2);

readln;

end.