[РЕШЕНО]: Задача. Дан массив размером от 1 до N.

[sr193]

Дан массив размером от 1 до N, выполнить пример сортировки методом обмена.

Решение:
http://www.programmersforum.ru/showp...88&postcount=3

[NikiToZz_]

Как-то так..

program zadacha;
uses crt;
const N=10;
    var   A:array[1..N] of integer;
      i,j,nmin,c:integer;
begin
  randomize;
  For i:=1 to N do begin
      A[i]:=-50+random(100);
      write (A[i]:4);
  end;
  For i:=1 to N-1 do begin
    nmin:=i;
    for j:=i+1 to N do
       if A[j]  < A[nmin] then nmin:=j;
    if nmin<>i then
       begin
          c:=A[i]; A[i]:=A[nmin]; A[nmin]:=c;
       end;
       end;
  writeln;
  for i:=1 to N do
     write (A[i]:4);
  readln;
end.

[sr193]

NikiToZz_ спасибо. Тему можно закрывать.

const 
  n = 10;
var 
  a:array[1..n] of integer;
  i,j,buf:integer;
begin
    for i:=1 to n do
    begin
      a[i]:=random(10);
      write(a[i],' '); 
    end;	
  for i:=1 to n-1 do 
    for j:=i+1 to n do
      if a[i]>a[j] then 
        begin
          buf:=a[i]; 
          a[i]:=a[j]; 
          a[j]:=buf;
        end;
  writeln;
  writeln('Массив после сортировки методом обмена:');
  for i:=1 to n do 
    write(a[i],' ');
end.