Информатика, опубликовано 2018-08-22 22:53:50 by Гость

Дан массив из n элементов отсортировать его по убыванию

Ответ оставил Гость

Var
a:array [1..10] of integer;
i, n, p, j:integer;
begin
writeln(vvedite n);
readln(n);
writeln(vvedite massiv);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
for j:=i to n do
if a[i]begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;
writeln(posle sortirovki);
for i:=1 to n do
write(a[i], );
writeln();
end.

Не нашли ответа?

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

Форма вопроса доступна на полной версии этой страницы.