Question

Массив из 15 элементов задан датчиком случайных чисел на интервале [0;15] вывести на экран элементы массива имеющие чётные порядковые номера Паскаль

Answer 1

Ответ:

begin

 var a := ArrRandomInteger(15, 0, 15);

 a.Where(x->not Odd(x)).Println;

end.

Answer 2

Вот пример кода на языке Pascal, который создает массив из 15 элементов, заполняет его случайными числами в интервале [0;15] и затем выводит элементы массива с четными порядковыми номерами:

pascalCopy code
program RandomArray;

var
  arr: array[1..15] of integer; // Объявляем массив из 15 элементов
  i: integer;

begin
  // Заполняем массив случайными числами в интервале [0;15]
  randomize; // Инициализация генератора случайных чисел
  for i := 1 to 15 do
    arr[i] := random(16); // Генерируем случайное число от 0 до 15

  // Выводим элементы массива с четными порядковыми номерами
  writeln('Элементы массива с четными порядковыми номерами:');
  for i := 2 to 15 step 2 do
    writeln('arr[', i, '] = ', arr[i]);

  readln;
end.

Этот код создаст массив arr, заполнит его случайными числами и затем выведет элементы с четными порядковыми номерами (в данном случае, элементы с индексами 2, 4, 6 и так далее).