Question

Паскаль, 9 класс Заполнить массив из 15 элементов случайными числами в интервале [-15..45] и найти четные элементы массива.

Answer 1

Программа:

Pascal:

var

 arr: array[1..15] of integer;

 i: integer;

begin

 for i := 1 to 15 do arr[i] := random(-15, 45);

 write('Массив: ', arr, #10, 'Положительные элементы: ');

 for i := 1 to 15 do if arr[i] mod 2 = 0 then write(arr[i], ' ');

end.

Answer 2

Заполнение массива случайными числами

Для заполнения массива из 15 элементов случайными числами в интервале [-15..45] вам понадобится использовать генератор случайных чисел. В языке программирования Паскаль это можно сделать с помощью функции `Randomize` и функции `Random`.

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

program RandomArray;

var
  arr: array[1..15] of Integer;
  i: Integer;

begin
  Randomize; // Инициализация генератора случайных чисел
  
  // Заполнение массива случайными числами
  for i := 1 to 15 do
  begin
    arr[i] := Random(61) - 15; // Генерация случайного числа в интервале [-15..45]
  end;
  
  // Вывод массива на экран
  for i := 1 to 15 do
  begin
    Write(arr[i], ' ');
  end;
  
  // Поиск четных элементов массива
  WriteLn;
  Write('Четные элементы массива: ');
  for i := 1 to 15 do
  begin
    if arr[i] mod 2 = 0 then // Проверка на четность
    begin
      Write(arr[i], ' ');
    end;
  end;
  
end.

В этом коде мы используем цикл `for` для заполнения массива случайными числами в интервале [-15..45]. Затем мы используем еще один цикл `for` для поиска четных элементов массива и вывода их на экран.

Обратите внимание, что в приведенном коде мы использовали функцию `Random(61) - 15` для генерации случайного числа в интервале [-15..45]. Функция `Random(61)` генерирует случайное число в интервале [0..60], а вычитание 15 сдвигает этот интервал в интервал [-15..45].

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.