Помогите решить задачу на массив в паскале:

Дана последовательность чисел а1, а2, ... аn. Требуется переставить числа в порядке возрастания.

Question

Информатика

Ревекка

19 февраля, 03:45

Помогите решить задачу на массив в паскале:

Дана последовательность чисел а1, а2, ... аn. Требуется переставить числа в порядке возрастания.

+3

Ответы (1)

Знаете ответ на вопрос?

Евгеня · Answer 1

Var i, n, j, m:integer;

mass:array[1 ... 100] of integer;

begin

read (n) ;

for i:=1 to n do

read (mass[i]) ;

for i:=n-1 downto 1 do

for j:=1 to i do

if mass[j]>mass[j+1] then

begin

m: = mass[j];

mass[j]: = mass[j+1];

mass[j+1]: = m;

end;

for i:=1 to n dowrite (mass[i]:5) ;

end.

Помогите решить задачу на массив в паскале:Дана последовательность чисел а1, а2, ... аn. Требуется переставить числа в порядке возрастания.

Помогите решить задачу на массив в паскале:

Дана последовательность чисел а1, а2, ... аn. Требуется переставить числа в порядке возрастания.