Предмет: Информатика,
автор: MashaNelson
Упорядочить целочисленный массив Х по убыванию
Ответы
Автор ответа:
0
var x:array[1..n] of integer; (n сам задай)
i,j,k:integer;
begin
For i:=1 to n do
Readln(x[i]);
For j:=1 to n-1 do
For i:=1 to n-j do
If X[i]<X[i+1] then begin k:=X[i]; X[i]:=X[i+1]; X[i+1]:=k; end;
For i:=1 to n do
Writeln(X[i]);
end.
Интересные вопросы
Предмет: История,
автор: Аноним
Предмет: Русский язык,
автор: arinagolobo
Предмет: Математика,
автор: Elvira7078
Предмет: Алгебра,
автор: letta