Delphi - Сортировка масива (Найти ошибку)
Добавлено: 11 дек 2009, 16:47
532. Заданные натуральное число n, действительные числа a1, a2, .... An. Если последовательность упорядочена по збильненню - оставить ее неизменной. Иначе инвертировать последовательность
[HTML]program Project532;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Mas1=array[1..10] of real;
const
M1:Mas1=(9,8,7,6,5,4,3,2,1,0);
var
M:Mas1;
i,n:integer;
c:real;
begin
M:=M1;
if M[1]>M[2] then
begin
i:=1;
n:=10;
while i<>n do
begin
c:=M;
M:=M[n];
M[n]:=C;
n:=n-1;
inc(i);
end;
end;
writeln('otsortirovano');
for i:=1 to 10 do
begin
write(m:6:2,' ');
end;
readln;
end.[/HTML]
[HTML]program Project532;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Mas1=array[1..10] of real;
const
M1:Mas1=(9,8,7,6,5,4,3,2,1,0);
var
M:Mas1;
i,n:integer;
c:real;
begin
M:=M1;
if M[1]>M[2] then
begin
i:=1;
n:=10;
while i<>n do
begin
c:=M;
M:=M[n];
M[n]:=C;
n:=n-1;
inc(i);
end;
end;
writeln('otsortirovano');
for i:=1 to 10 do
begin
write(m:6:2,' ');
end;
readln;
end.[/HTML]