Задачи для начинающих,нужна помошь в освоении

[brahmanchik]

Интересно...и такое здесь есть, спасибо, а если я найду похожую задачку код не сильно меняется ведь так?

[brahmanchik]

http://forum.codenet.ru/archive/index.php/t-25593.htm вот похожая задача только тут метод обмена, а не выбора, можно наверное методом подстановки, как думаете?

[brahmanchik]

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a:Tarr;
  i,j,buf,n:integer;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-20+random(41);
      write(a[i]:4);
    end;
  writeln;
  for i:=1 to n-1 do
    if a[i]>0 then
      for j:=i+1 to n do
        if (a[j]>0) and (a[j]>a[i]) then
          begin
            buf:=a[i];
            a[i]:=a[j];
            a[j]:=buf;
          end;
  writeln('Poluchenniy massiv:');
  for i:=1 to n do
    write(a[i]:4);
  writeln;
end.

[McFrey]

да,код верный