ТУРБОПАСКАЛЬ! Дано масив А(9). Впорядкувати його по спаданню. (Дано масив А(9). Упорядочить по спаданию)
Программу напишите!

program sort;

uses crt;

const n=10;

var m,k:array[1..n] of integer;

i,j:integer;

tmp,ln:integer;

Begin

clrscr;

writeln('Vedit massiv');

for i:=1 to n do

read(m);

for i:=1 to n-1 do

if odd(m) then

for j:=i+1 to n do

if odd(m[j]) and (m[j] > m) then

begin

tmp:=m;

m:=m[j];

m[j]:=tmp;

end;

writeln('vidsort mas');

for i:=1 to n do

writeln(m,' ');

readkey

end.

Объяснение: