Составь программу, чтобы массив был составлен случайныйм образом от -10 до 10 и выводились только четные числа в PascalABCNET

Конечно! Давайте создадим программу на PascalABC.NET, которая будет генерировать массив случайных чисел в диапазоне от -10 до 10, а затем выводить только четные числа из этого массива.

Вот пример программы:

program EvenNumbersFromRandomArray;
uses crt; // для использования функции clrscr, если нужно очищать экран

const
  Size = 20; // размер массива

var
  arr: array[1..Size] of Integer; // объявление массива
  i: Integer;

begin
  Randomize; // инициализация генератора случайных чисел

  // Заполнение массива случайными числами от -10 до 10
  for i := 1 to Size do
  begin
    arr[i] := Random(21) - 10; // генерируем числа от -10 до 10
  end;

  // Выводим только четные числа
  WriteLn('Четные числа из массива:');
  for i := 1 to Size do
  begin
    if arr[i] mod 2 = 0 then // проверка на четность
      Write(arr[i], ' '); // выводим четное число
  end;

  ReadLn; // чтобы программа не закрылась сразу
end.

Объяснение кода:

1. Объявление константы и массива: Мы создаем массив фиксированного размера Size, который будет хранить случайные целые числа.
2. Инициализация генератора случайных чисел: Randomize служит для инициализации генератора случайных чисел с текущим временем.
3. Заполнение массива: Цикл for заполняет массив случайными числами в диапазоне от -10 до 10.
4. Проверка и вывод четных чисел: В другом цикле мы проверяем каждое число в массиве. Если число четное (проверяется с помощью mod 2), мы выводим его.

Эта программа поможет вам работать с массивами и случайными числами в языке Pascal. Если у вас есть дополнительные вопросы или нужна помощь с другими задачами, не стесняйтесь обращаться!