отсортировать элементы стоящие после первого наибольшего методом пузырькаPASCAL ABC

Const n=10;
var i,j,k,mx,ind: integer;
a: array[1..n] of integer;
begin
writeln('исходный массив:');
randomize;
mx:=0;
for i:=1 to n do
begin
a[i]:=random(2*n)-n;
write(a[i],' ');
if a[i]gt;mx then
begin
mx:=a[i];
ind:=i;
end;
end;
writeln;
for i:=ind+1 to n-1 do
for j:=i+1 to n do
if a[i]gt;a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
writeln('новый массив:');
for i:=1 to n do write(a[i],' ');
end.

начальный массив:
3 7 7 5 5 -2 -8 -9 -8 6
новый массив:
3 7 -9 -8 -8 -2 5 5 6 7

Dashka Andashova 2019-02-19 07:42:59

Неведомый идентификатор swap

Денис Кумей 2019-02-19 07:46:57

Это не идентификатор, это процедура swap(a,b) - меняет значения переменных a b, a=b, b=a. Заместо нее можно записать так: k:=a[i]; a[i]:=a[j]; a[j]:=k; только необходимо обрисовать k в var k: integer;

Agata Vasileva Savenovska 2019-02-19 07:52:57

Естественно, эти три оператора необходимо поместить в блок begin end; , т.е. вместо строчки if a[i]>a[j] then swap(a[i],a[j]); записываете последующее: if a[i]>a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k; end;

Стефания 2019-02-19 07:59:11

Спасибо

Mordanova Margarita 2019-02-19 08:06:18

Сможете еще эту решить

Галина 2019-02-19 08:08:57

https://znanija.com/task/27960514

Вероника Фабрики · Answer 2 · 2019-02-19 07:43:42+3:00

Вероника Фабрики 2019-02-19 07:43:42

Элемент - k . Он нужен для того чтобы поменять два элемента массива местами.

Коля Бузюкин 2019-02-19 08:14:16

Надобно после максимального отсортировать,а не просто

О проекте

отсортировать элементы стоящие после первого наибольшего методом пузырькаPASCAL ABC

Добро пожаловать!