Упорядочить данную последовательность по возрастанию

@Igot · Регистрация: 14.11.2015

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

Задача 2. Упорядочить данную последовательность по возрастанию. Элементы вводятся с клавиатуры. Размер произвольный.

@CodeR · 18.11.2015, 12:54

Pascal

Const nmax=100;
Var A:array[1..nmax] of real;
    i,j,n:integer;
    t:real;
Begin
    Repeat
      write('N: ');
      readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Введите ',n, ' элементов');
    For i:=1 to n do
     read(A[i]);
    For i:=n downto 2 do
     For j:=2 to i do
      if A[j] < A[j-1] then
      Begin
        t:=A[j];
        A[j]:=A[j-1];
        A[j-1]:=t;
      End;
    writeln('Полученный массив');
    For i:=1 to n do
     write(A[i]:0:2, ' ');
    readln;
End.

@Igot 0 / 0 / 0 Регистрация: 14.11.2015 Сообщений: 6
		1
	Упорядочить данную последовательность по возрастанию 18.11.2015, 10:15. Показов 6409. Ответов 1 Метки нет (Все метки) Задача 2. Упорядочить данную последовательность по возрастанию. Элементы вводятся с клавиатуры. Размер произвольный. 0

	18.11.2015, 12:54

Упорядочить данную последовательность по возрастанию

Решение