Code
uses
SysUtils;
type
mas=array[1..999] of real;
procedure SortInc (var M:mas;N:integer);
var i,j:integer;
t:real;
begin
for j:=0 to N-1 do
for i:=0 to N-1 do
if M[i] > M[i+1] then
begin
t:=M[i];
M[i]:=M[i+1];
M[i+1]:=t;
end;
end;
var a:mas;
n,i:integer;
begin
randomize;
write('Vvedi razmer massiva= ');
read(n);
for I := 1 to n do a[i]:=(random(99)+1);
for I := 1 to n do write(a[i]:5:2, ' ');
writeln;
SortInc(a,n);
for I := 1 to n do write(a[i]:5:2, ' ');
readln;readln;
end.
ЗЫ: Писал в Делфи, так что могут быть проблемы с совместимостью
