Заполнить массив из 10 элементов в интервале [-50..50] и отсортировать его по убыванию.
Заполнить массив из 10 элементов в интервале [-50..50] и отсортировать его по убыванию.
Гость
Ответ(ы) на вопрос:
Гостьprogram t1;
var
i, j: integer;
mas: array [1..10] of integer;
begin
randomize;
writeln ('сгенерированный масив: ');
for i := 1 to 10 do
begin
mas[i] := random (100) - 50;
write (mas[i]);
end;
begin
for j:=1 to 9 do
for i:=1 to 9-j do
if M[i] < M[i+1] then
swap(mas[i],mas[i+1])
end;
writeln ('отсортированный по убыванию массив: ');
for i := 1 to 10 do write (mas[i]);
end;
end.
Не нашли ответ?
Похожие вопросы