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

@sr193 · Регистрация: 11.06.2016

Author24 — интернет-сервис помощи студентам

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

@Димка11 · 12.06.2016, 12:58

пример сортировки какой? От большего к меньше или наоборот? Не совсем понял вопрос.

@sr193 · 12.06.2016, 13:21 **[ТС]**

Димка11, если вас не затруднит, сделайте оба.

@ZX Spectrum-128 · 12.06.2016, 13:31

Написать программу сортировки линейного массива целых чисел методом обмена

@sr193 · 12.06.2016, 18:11 **[ТС]**

Pascal

Всем спасибо, тему можно закрывать.
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.

@sr193 0 / 0 / 0 Регистрация: 11.06.2016 Сообщений: 6
		1
	Дан массив размером от 1 до N, выполнить пример сортировки методом обмена 11.06.2016, 16:16. Показов 1549. Ответов 4 Метки нет (Все метки) Дан массив размером от 1 до N, выполнить пример сортировки методом обмена. 0

@Димка11 1 / 1 / 0 Регистрация: 16.06.2015 Сообщений: 42
	12.06.2016, 12:58	2
	пример сортировки какой? От большего к меньше или наоборот? Не совсем понял вопрос. 0

@sr193 0 / 0 / 0 Регистрация: 11.06.2016 Сообщений: 6
	12.06.2016, 13:21 [ТС]	3
	Димка11, если вас не затруднит, сделайте оба. 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	12.06.2016, 13:31	4
	Написать программу сортировки линейного массива целых чисел методом обмена 0

	12.06.2016, 18:11