Дан массив а[-1;0;2;4;-2].Отсортировать по возрастанию(на ПАСКАЛЕ)в виде ПРОГРАММЫ
Ответы на вопрос
Ответил Лёлька22
0
uses crt;
var
i,j,max:byte;
a: array [1..100] of integer;
buf:integer;
BEGIN
repeat
write(' input number of elements ');
readln(max);
until max in [1..100];
writeln('input your demention');
for i:=1 to max do
begin
write('input a[', i, '] = ');
readln(a[i]);
end;
buf:=0;
write('the first sort: ');
for i:=max downto 1 do
for j:=2 to i do
if a[j]<a[j-1] then
begin
buf:=a[j];
a[j]:=a[j-1];
a[j-1]:=buf;
end;
for i:=1 to max do
write(a[i]);
writeln;
write('the second sort : ');
for i:=max downto 1 do
write(a[i],' ');
END.
С форума программистов , сортировка повсюду
С форума программистов , сортировка повсюду
Ответил Кек5555
0
Зачем вы вводим max?
Ответил Лёлька22
0
Сортируя по возрастанию идет переребор числе от самого маленького к самому большому.завершение максимумом, идет сравнение самого большого с любым другим
Ответил Кек5555
0
Спасибо вам большое
Новые вопросы