Составьте программу, которая формирует массив из 10 случайных целых чисел в диапазоне от 1 до 20 и выводит...

Конечно! Давайте составим программу на языке Pascal, которая выполняет поставленную задачу.

Программа должна:

1. Создать массив из 10 случайных целых чисел в диапазоне от 1 до 20.
2. Вывести на экран только те элементы массива, значения которых больше 5, но меньше 15.

Для этого мы используем генерацию случайных чисел и цикл для проверки каждого элемента массива.

Вот пример программы на языке Pascal:

program FilterArray;

uses crt;

var
  numbers: array[1.10] of integer;
  i: integer;

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

  // Заполняем массив случайными числами
  for i := 1 to 10 do
  begin
    numbers[i] := random(20) + 1;  // Генерируем случайное число от 1 до 20
  end;

  writeln('Сгенерированные числа:');
  for i := 1 to 10 do
  begin
    write(numbers[i], ' ');  // Выводим сгенерированные числа
  end;
  writeln;

  writeln('Числа больше 5 и меньше 15:');
  for i := 1 to 10 do
  begin
    if (numbers[i] > 5) and (numbers[i] < 15) then
    begin
      write(numbers[i], ' ');  // Выводим числа, удовлетворяющие условию
    end;
  end;
  writeln;
end.

Пояснение:

• randomize; — инициализирует генератор случайных чисел. Это нужно для того, чтобы при каждом запуске программы генерировались разные числа.
• random(20) + 1; — генерирует случайное число в диапазоне от 1 до 20. Функция random(20) возвращает значение от 0 до 19, поэтому мы прибавляем 1, чтобы получить диапазон от 1 до 20.
• for i := 1 to 10 do — цикл, который проходит по всем элементам массива.
• В первом цикле for мы заполняем массив случайными числами.
• Во втором цикле for мы проверяем каждое число: если оно больше 5 и меньше 15, то выводим его.

Запустив эту программу, вы получите массив из случайных чисел и увидите те из них, которые соответствуют заданному условию.

program RandomArray;

var arr: array[1.10] of integer; i: integer;

begin Randomize;

// Заполнение массива случайными числами от 1 до 20 for i := 1 to 10 do begin

arr[i] := Random(20) + 1;

end;

// Вывод элементов массива, которые больше 5, но меньше 15 writeln('Элементы массива больше 5, но меньше 15:'); for i := 1 to 10 do begin

if (arr[i] > 5) and (arr[i] < 15) then
begin
  writeln(arr[i]);
end;

end; end.