Дан целочисленный массив А(а1...аn). Отсортировать массив по убыванию,начиная с максимального элемента. ПАСКАЛЬ.
Дан целочисленный массив А(а1...аn). Отсортировать массив по убыванию,начиная с максимального элемента. ПАСКАЛЬ.
Гость
Ответ(ы) на вопрос:
Гостьreadln(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n - 1 do
for j := 1 to n - 1 do
if (a[i] < a[i + 1]) then
begin
b := a[i];
a[i] := a[i + 1];
a[i + 1] := b;
end;
for i := 1 to n do
write(a[i],' ');
Не нашли ответ?
Похожие вопросы