Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ Уровень A. Заполнить массив случайными числами в интервале [-10,10] и отобрать в другой массив все чётные отрицательные числа. Пример: Массив А: -5 6 7 -4 -6 8 -8 Массив B: -4 -6 -8

Answer 1

Для написания программы на языке Паскаль, которая заполняет массив случайными числами в интервале [-10, 10] и отбирает все четные отрицательные числа в другой массив, можно использовать следующий код:

program RandomArray;

const
  N = 10; // размер массива

var
  A, B: array[1..N] of integer; // объявление массивов
  i, j: integer; // переменные для циклов

begin
  // Заполнение массива A случайными числами в интервале [-10, 10]
  Randomize; // инициализация генератора случайных чисел
  for i := 1 to N do
    A[i] := Random(21) - 10; // генерация случайного числа от -10 до 10

// Отбор четных отрицательных чисел в массив B
  j := 0; // индекс для массива B
  for i := 1 to N do
  begin
    if (A[i] < 0) and (A[i] mod 2 = 0) then // проверка на отрицательность и четность
    begin
      j := j + 1;
      B[j] := A[i]; // добавление числа в массив B
    end;
  end;

// Вывод массива A
  writeln('Массив A:');
  for i := 1 to N do
    write(A[i], ' ');
  writeln;

// Вывод массива B
  writeln('Массив B:');
  for i := 1 to j do
    write(B[i], ' ');
  writeln;

readln;
end.

Программа начинается с объявления константы `N`, которая определяет размер массива. Затем объявляются два массива `A` и `B` размером `N` и переменные `i` и `j` для циклов.

Далее, с помощью цикла `for` и функции `Random`, массив `A` заполняется случайными числами в интервале [-10, 10].

Затем, с помощью еще одного цикла `for`, происходит отбор четных отрицательных чисел из массива `A` в массив `B`. Числа проверяются на отрицательность с помощью условия `A[i] < 0` и на четность с помощью условия `A[i] mod 2 = 0`.

После этого, с помощью цикла `for`, происходит вывод массива `A` и массива `B`.

Наконец, программа ожидает ввода пользователя, чтобы остановиться.

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