Question

СРОЧНО!!!!!!!ABC Pascal!!!!!! Дан одномерный массив А. Отсортировать массив по убыванию, найти количество отрицательных элементов массива, стоящих на четных местах

Answer 1

Program fantscrin;

 const n = 10;

 Var a: array [1..n] of integer;

     i,j,k:integer; s:real;

Begin

 for i:=1 to n do

   a[i]:=random(20)-10;

 for i:=1 to n do

   write(a[i], '  ');

 for i:=1 to n do

   for j:=1 to n-1 do

     if (a[j]<a[j+1]) then

                      begin

                       k:=a[j];

                       a[j]:=a[j+1];

                       a[j+1]:=k;

                      end;

 writeln('');

 for i:=1 to n do

   write(a[i], '  ');

 s:=0;

 for i:=1 to n do

   if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

 writeln('');

 writeln(s);

End.

Answer 2

Для сортировки одномерного массива по убыванию и подсчета количества отрицательных элементов, стоящих на четных местах, воспользуйтесь следующим кодом на языке Pascal:

pascalCopy code
program SortAndCount;
const
  N = 10; // Размер массива, можно изменить на необходимое значение

type
  TArray = array[1..N] of Integer;

var
  A: TArray;
  i, j, temp, countNegatives: Integer;

// Процедура для сортировки массива по убыванию методом пузырька
procedure BubbleSortDescending(var arr: TArray);
begin
  for i := 1 to N - 1 do
    for j := 1 to N - i do
      if arr[j] < arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;
end;

begin
  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
    readln(A[i]);

  // Сортировка массива по убыванию
  BubbleSortDescending(A);

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

  // Подсчет отрицательных элементов, стоящих на четных местах
  countNegatives := 0;
  for i := 2 to N step 2 do
  begin
    if A[i] < 0 then
      Inc(countNegatives);
  end;

  writeln;
  writeln('Количество отрицательных элементов, стоящих на четных местах:', countNegatives);
end.

Пожалуйста, обратите внимание, что в коде предполагается, что размер массива равен 10 (N = 10). Если вам нужен другой размер, замените значение константы N на желаемое число. После выполнения программы она попросит ввести 10 чисел (или число, соответствующее N) для заполнения массива, а затем выведет отсортированный массив и количество отрицательных элементов, стоящих на четных местах.