Question

Дан целочисленный массив из 21 элементов. Если сумма всех элементов четная, нужно вывести количество нечетных (по значению) элементов массива, если нечетная - количество четных. Например, для массива из 6 элементов, равных соответственно 2, 6, 12, 17, 3, 8, ответом будет 2 - кол-во нечетных элементов, так как общая сумма всех элементов четна. Массив отсортировать. Задание нужно выполнить на языке Pascal.

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(21, -99, 99);

 a.Println;

 Print('Найдено элементов:');

 if a.Sum.IsEven then

   Println(a.Count(p -> p.IsOdd))

 else

   Println(a.Count(p -> p.IsEven));

 Writeln('Отсортированной по неубыванию массив:');

 a.Sorted.Println

end.

Answer 2

Вот пример решения задачи на языке Pascal:

pascalCopy code
program CountOddEvenElements;

const
  SIZE = 21;

type
  IntArray = array[1..SIZE] of Integer;

var
  arr: IntArray;
  sum: Integer;
  i, oddCount, evenCount, temp: Integer;

procedure SortArray(var arr: IntArray);
var
  i, j, temp: Integer;
begin
  for i := 1 to SIZE - 1 do
  begin
    for j := i + 1 to SIZE do
    begin
      if arr[i] > arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
    end;
  end;
end;

begin
  // Здесь вы можете заполнить массив arr с помощью ввода с клавиатуры или предварительно задать значения элементов.

  // Вычисление суммы всех элементов массива
  sum := 0;
  for i := 1 to SIZE do
    sum := sum + arr[i];

  // Подсчет количества нечетных и четных элементов в массиве
  oddCount := 0;
  evenCount := 0;
  for i := 1 to SIZE do
  begin
    if arr[i] mod 2 = 0 then
      Inc(evenCount)
    else
      Inc(oddCount);
  end;

  // Проверка суммы и вывод результатов
  if sum mod 2 = 0 then
    Writeln('Количество нечетных элементов: ', oddCount)
  else
    Writeln('Количество четных элементов: ', evenCount);

  // Сортировка массива
  SortArray(arr);

  // Вывод отсортированного массива
  Writeln('Отсортированный массив:');
  for i := 1 to SIZE do
    Write(arr[i], ' ');

  Readln;
end.

В этом примере используется массив размером 21 элемент, который нужно заполнить значениями перед выполнением программы. Затем происходит вычисление суммы всех элементов массива и подсчет количества нечетных и четных элементов. Затем проверяется четность суммы и выводится результат. После этого массив сортируется с помощью алгоритма сортировки выбором, и отсортированный массив выводится на экран.