Задача по паскалю

[yabusic]

Выполнить сортировку массива двумя способами: методом прямого выбора и методом обмена. Ввод элементов массива организовать способом, указанным в варианте задания.
Кол-во элементов: 10;
Организация ввода: через константы;
Вид сортировки: по убыванию.
Заранее спасибо!

[digitalis]

https://delphicomponent.ru/189-sorti...-v-delphi.html

[yabusic]

Я знаю принцип сортировки, проблема с константами.

[Аватар]

var a: array[0..3] of Integer = (5, 7, 1, 3);

В турбо вроде так нельзя, там только const и как выше.

[type_Oleg]

Сообщение от yabusic

Организация ввода: через константы;

Так что ли?

const 
 ARR:array[1..10]of Integer=(5,6,-7,1,2,0,1,1,55,-777);

[yabusic]

const n=10;
const a:array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10);
var i,j,k:integer;
begin
write('Исходный массив');
for i:=1 to n-1 do
for j:=1 to n-1 do
if (a[j]<a[j+1]) then
begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
write('Отсортированный массив');
for i:=1 to n do
write(a[i]:4);
writeln;
end.
Говорит, что нельзя изменить значение константы.

[Serge_Bliznykov]

Небось PascalABC ?

так просто перенесите константу в обычный массив.
вот так:

const n=10;
 const CC:array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10);
 var
   a:array[1..n] of integer;
   i,j,k:integer;
 begin
 write('Исходный массив');
 for i:=1 to n do begin a[i] := CC[i]; Write(a[i]:4,' '); end;
 WriteLn;

 
 for i:=1 to n-1 do
   for j:=1 to n-1 do
      if (a[j]<a[j+1]) then
        begin
         k:=a[j];
         a[j]:=a[j+1];
         a[j+1]:=k;
        end;
        
 write('Отсортированный массив');
 for i:=1 to n do write(a[i]:4);
 writeln;
 end.

[yabusic]

Сообщение от Serge_Bliznykov

Небось PascalABC ?

так просто перенесите константу в обычный массив.
вот так:

const n=10;
 const CC:array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10);
 var
   a:array[1..n] of integer;
...

Спасибо!

_____________
не злоупотребляйте излишним цитированием, цитируйте только то, что нужно для вашего ответа, остальное удаляйте!
Модератор

[digitalis]

Моя реализация алгоритма малость эффективнее, только на Си. Только там меняются сразу 3 элемента структуры, но это и козе понятно.

http://programmersforum.ru/showthrea...37#post1643837 ( с последующим уточнением ) ;
yabusic при ответе полное цитирование не обязательно. В других форумах за это мало-мало секут розгами и говорят "овекрквотинг" .