Одномерный массив упорядочить по возрастанию методом сортировки выбором

@SkyLark_71 · Регистрация: 12.10.2017

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

Задана последовательность из N чисел, упорядочить ее по возрастанию методом сортировки выбором.

@KR1 · 07.11.2017, 19:04

Посмотрите, подойдет ли вам

Pascal

PROGRAM apple;
const n=5;
var i,m, j,  x, : integer;   
    A:ARRAY[1..5] OF INTEGER;
BEGIN
 WRITELN('Введи  массив');
 FOR i:=1 TO n DO READ(A[I]); 
for i := 1 to n - 1 do
        begin
          m := i;
          x := A[i];
          for j := i + 1 to n do     
            if x > A[j] then
              begin
                m := j;
                x := A[j];
              end;     
            A[m] := A[i];
            A[i] := x;
        end;      
      for i := 1 to n do 
      Write(a[i]:4);
      writeln(' '); 
END.

@SkyLark_71 · 19.11.2017, 12:18 **[ТС]**

Задана последовательность из N чисел, упорядочить ее по возрастанию методом сортировки выбором.

@ZX Spectrum-128 · 19.11.2017, 19:30

Комментарий модератора

SkyLark_71, не нужно дублировать темы. Дубль вашей темы удален.

@SkyLark_71 3 / 2 / 1 Регистрация: 12.10.2017 Сообщений: 213
		1
	Одномерный массив упорядочить по возрастанию методом сортировки выбором 07.11.2017, 18:29. Показов 1295. Ответов 3 Метки нет (Все метки) Задана последовательность из N чисел, упорядочить ее по возрастанию методом сортировки выбором. 0

@SkyLark_71 3 / 2 / 1 Регистрация: 12.10.2017 Сообщений: 213
	19.11.2017, 12:18 [ТС]	3
	Задана последовательность из N чисел, упорядочить ее по возрастанию методом сортировки выбором. 0

Опции темы