Question

Составить программу и её блок-схему для вычисления одномерного массива: В целочисленном массиве Х (N) найти номера и значение максимального парного и минимального нечетного элементов массива.(Pascal)​

Answer 1

Ответ:

var

 a: array of integer;

 n, i, maxpar, minn: integer;

begin

 Write('Введите размер массива N: '); ReadLn(n);

 SetLength(a, n);

 randomize;

 minn := 51;

 WriteLn('Массив:');

 for i := 0 to n - 1 do

 begin

   a[i] := random(50) + 1;

   Write(a[i], ', ');

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

 end;

 WriteLn;

 Sort(a);

 for i := 0 to n - 2 do

   if a[i] = a[i + 1] then maxpar := a[i];

 if maxpar <> 0 then WriteLn('Максимальный парный элемент равен ', maxpar)

    else WriteLn('В массиве нет парных элементов');

 WriteLn('Минимальный нечетный элемент равен ', minn);

end.

Объяснение:

Answer 2

Ниже представлена программа на языке Pascal и блок-схема для решения данной задачи:

pascalCopy code
program FindMinMaxElements;
const
  N = 10; // Максимальный размер массива
var
  X: array[1..N] of integer;
  i, maxEvenIndex, minOddIndex, maxEvenValue, minOddValue: integer;

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

  // Инициализация начальных значений
  maxEvenIndex := 0;
  minOddIndex := 0;
  maxEvenValue := -9999; // Предполагаем, что все элементы массива меньше этого значения
  minOddValue := 9999;   // Предполагаем, что все элементы массива больше этого значения

  // Поиск максимального парного и минимального нечетного элементов
  for i := 1 to N do
  begin
    if (X[i] mod 2 = 0) and (X[i] > maxEvenValue) then
    begin
      maxEvenValue := X[i];
      maxEvenIndex := i;
    end
    else if (X[i] mod 2 <> 0) and (X[i] < minOddValue) then
    begin
      minOddValue := X[i];
      minOddIndex := i;
    end;
  end;

  // Вывод результатов
  writeln('Максимальный парный элемент: X[', maxEvenIndex, '] = ', maxEvenValue);
  writeln('Минимальный нечетный элемент: X[', minOddIndex, '] = ', minOddValue);
end.

Блок-схема для этой программы может выглядеть следующим образом:

luaCopy code
       +-----------------------------------+
       | Начало программы                |
       +-----------------------------------+
                     |
                     v
       +-----------------------------------+
       | Инициализация переменных         |
       | maxEvenIndex := 0                |
       | minOddIndex := 0                 |
       | maxEvenValue := -9999            |
       | minOddValue := 9999             |
       +-----------------------------------+
                     |
                     v
       +-----------------------------------+
       | Ввод элементов массива X         |
       | Для i от 1 до N                 |
       |   Вывод "X[i] = "               |
       |   Ввод X[i]                      |
       +-----------------------------------+
                     |
                     v
       +-----------------------------------+
       | Поиск максимального парного и   |
       | минимального нечетного элементов |
       | Для i от 1 до N                 |
       |   Если X[i] - парное и X[i] >   |
       |   maxEvenValue, то              |
       |     maxEvenValue := X[i]         |
       |     maxEvenIndex := i            |
       |   Иначе если X[i] - нечетное и  |
       |   X[i] < minOddValue, то         |
       |     minOddValue := X[i]          |
       |     minOddIndex := i             |
       +-----------------------------------+
                     |
                     v
       +-----------------------------------+
       | Вывод результатов               |
       | Вывод "Максимальный парный      |
       | элемент: X[maxEvenIndex] =      |
       | maxEvenValue"                   |
       | Вывод "Минимальный нечетный     |
       | элемент: X[minOddIndex] =       |
       | minOddValue"                    |
       +-----------------------------------+
                     |
                     v
       +-----------------------------------+
       | Конец программы                 |
       +-----------------------------------+