Решаем задачи Абрамян на Паскале. Array115

Array115. Дан массив $$A$$ размера $$N$$. Не изменяя данный массив, вывести номера его элементов в том порядке, в котором соответствующие им элементы образуют возрастающую последовательность. Использовать метод «пузырьковой» сортировки (см. задание Array112), модифицировав его следующим образом: создать вспомогательный целочисленный массив номеров $$I$$, заполнив его числами от $$1$$ до $$N$$; просматривать массив $$A$$, сравнивая пары элементов массива $$A$$ с номерами $$I_1$$ и $$I_2$$, $$I_2$$ и $$I_3$$, … и меняя местами соответствующие элементы массива $$I$$, если левый элемент пары больше правого. Повторив описанную процедуру просмотра $$N — 1$$ раз, получим в массиве I требуемую последовательность номеров.

Решение:

program Array115;

var

a : array [1..6] of real;

i: array [1..6] of integer;

N,N2,k,k2,k3: integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for k:=1 to N do

begin

write(k,' :');

readln(a[k]);

i[k]:=k;

end;

N2:=N;

for k:=1 to N-1 do

begin

k2:=1;

N2:=N2-1;

while (k2<=N2) do

begin

if a[i[k2]] > a[i[k2]+1] then

begin

i[k2]:=i[k2]+i[k2+1];

i[k2+1]:=i[k2]-i[k2+1];

i[k2]:=i[k2]-i[k2+1];

end;

inc(k2);

end;

for k3:=1 to N do writeln(i[k3]);

readln;

end;

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 1

program array_115;//pascalABC.net

var n := 6;

var a := ArrRandom(n, 0, 9); a.Println;//9 9 0 1 5 6

var b := Arr(0, 1, 2, 3, 4, 5);

for var i := 1 to n - 1 do

for var j := 1 to n - i do

if a[b[j]] < a[b[j - 1]] then Swap(b[j], b[j - 1]);

for var i := 0 to n - 1 do b[i] += 1;

b.Println;//3 4 5 6 1 2

Ответить

Решаем задачи Абрамян на Паскале. Array115

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ