Составьте алгоритм для решения следующей задачи: Дан массив A(n). Отсортировать в порядке убывания значений.
Сравнивай два соседних числа и переставляй если второе больше за первое так делай n раз
var a:array[1..100] of integer; n,i,k:integer; begin k:=1; readln(n); for i:=1 to n-1 do read(a[i]); if a[i]a[i]:=a[i+1]; for i := 1 to n do write(a[i]:3); end.
задай размер маcсива константой и тогда не нужно будет вписывать размер вручную
и ты не меняешь их местами
inc(mas[max,i],mas[min,i]); mas[min,i]:=mas[max,i]-mas[min,i]; dec(mas[max,i],mas[min,i]);
так менять местами рядки двухмерного масива
без третей переменной
ииии ничего не понял