Сортировать 63 элемента по увеличению пузырьковым методом. Решение записать на я...

July 2022 2 340 Report

Сортировать 63 элемента по увеличению пузырьковым методом. Решение записать на языке Pascal.

ABYSSS Const
m = 63;

var
arr: array[1..m] of integer;
i, j, k: integer;

begin
randomize;

write ('Исходный массив: ');
for i := 1 to m do begin
arr[i] := random(62)+1;
write (arr[i]:4);
end;
writeln; writeln;

for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;

write ('Отсортированный массив: ');
for i := 1 to m do
write (arr[i]:4);

writeln;

readln
end. Ну как то так

Answers & Comments

pomogite pozhalujsta reshit zadachu pri izmerenii soprotivleniya sobstvennogo po

pomogite pozhalujsta reshit zadachu puchok parallelnyh monohromaticheskih luchej

m70004c9dacd317231bdc185c2da6208c 10220

pomogite pozhalujsta reshit zadachu dva tochechnyh zaryada q1 24 nkl i q2 75

pomogite pozhalujsta reshit zadachu katushka bez magnitnogo serdechnika dlinoj

pomogite pozhalujsta reshit zadanie dany koordinaty chetyryoh tochek a2 1 0

s2d63f94d69af3cbf9af478d4b16ab348e 55507

pomogite pozhalujsta reshit zadachu vse gosudarstva raspolozhennye na nekotoroj98cc0dac65d9afbbf3a6d91a015973b2 62537

pomogite pozhalujsta vypolnit zadanie v kakih sluchayah terminy i professionali

pomogite pozhalujsta vypolnit zadanie ukazhite sposoby obrazovaniya professiona

рекомендуемые вопросы

Helpful Links

Helpful Social