Информатика, опубликовано 2018-08-22 19:51:27 by Гость
1.Задан массив из 10 элементов (5;150).Отсортировать массив по убыванию
Ответ оставил Гость
Var
i,j,p:integer;
a:array[1..10]of integer;
begin
writeln(Исходный массив:);
for i:=1 to 10 do
begin
a[i]:=random(5,150);
write(a[i], );
end;
writeln;
for i:=1 to 10 do
for j:=i to 10 do
if a[j]>a[i] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p
end;
writeln(Отсортированный массив:);
for i:=1 to 10 do write(a[i], );
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на