Помогите решить задачу на массив в паскале:
Дана последовательность чисел а1, а2, … аn. Требуется переставить числа в порядке возрастания.
Ответы
Ответ дал:
0
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.
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 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад