Сортировка положительных элементов методом прямого выбора .программа.Паскаль

Ответы (1)

Джеймилин 02.02.2025 3

Const
n=20;
var
a:array[1..n] of integer;
i,j,k,x:integer;
begin
Randomize;
Writeln('Исходная последовательность');
for i:=1 to n do begin a[i]:=Random(50)+1; Write(a[i]:3) end;
Writeln;
for i:=1 to n-1 do begin
    k:=i; x:=a[i];
    for j:=i+1 to n do
      if a[j]    a[k]:=a[i]; a[i]:=x
end;
Writeln('После сортировки');
for i:=1 to 20 do begin Write(a[i]:3) end;
Writeln
end.

Тестовое решение:
Исходная последовательность
6 37 19 32 34 48 28 8 15 50 25 37 14 12 28 10 15 40 29 10
После сортировки
6 8 10 10 12 14 15 15 19 25 28 28 29 32 34 37 37 40 48 50

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: