Question

ПОМОГИТЕ!!! ДАЮ 70 БАЛОВ!!! ТУРБОПАСКАЛЬ! Дано масив А(9). Впорядкувати його по спаданню. (Дано масив А(9). Упорядочить по спаданию) Программу напишите!

Answer 1

Ответ:

program sort;

uses crt;

const n=10;

var m,k:array[1..n] of integer;

i,j:integer;

tmp,ln:integer;

Begin

clrscr;

writeln('Vedit massiv');

for i:=1 to n do

read(m);

for i:=1 to n-1 do

if odd(m) then

for j:=i+1 to n do

if odd(m[j]) and (m[j] > m) then

begin

tmp:=m;

m:=m[j];

m[j]:=tmp;

end;

writeln('vidsort mas');

for i:=1 to n do

writeln(m,' ');

readkey

end.

Объяснение:

Answer 2

Конечно, вот программа на Turbo Pascal для сортировки массива А(9) по убыванию с использованием алгоритма сортировки пузырьком:

pascalCopy code
program SortArrayDescending;
var
  A: array[1..9] of Integer;
  i, j, temp: Integer;
begin
  // Ввод элементов массива
  writeln('Введите 9 элементов массива:');
  for i := 1 to 9 do
  begin
    write('A[', i, ']: ');
    readln(A[i]);
  end;

  // Сортировка по убыванию с использованием сортировки пузырьком
  for i := 1 to 8 do
  begin
    for j := 1 to 9 - i do
    begin
      if A[j] < A[j + 1] then
      begin
        // Обмен значений
        temp := A[j];
        A[j] := A[j + 1];
        A[j + 1] := temp;
      end;
    end;
  end;

  // Вывод отсортированного массива
  writeln('Отсортированный массив по убыванию:');
  for i := 1 to 9 do
    writeln('A[', i, ']: ', A[i]);

  readln;
end.

Эта программа сначала запрашивает у пользователя 9 элементов массива, затем сортирует массив по убыванию с использованием сортировки пузырьком и выводит отсортированный результат.