Question

PascalABC. Нужно создать массив из 15 рандомных чисел, на промежутке чисел от 0 до 30 и вывести положительные значения.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(15, 0, 30);

 a.Println;

 a.Where(t -> t > 0).Println

end.

Answer 2

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

program RandomArray;

const
  ARRAY_SIZE = 15;
  MIN_VALUE = 0;
  MAX_VALUE = 30;

var
  randomNumbers: array[1..ARRAY_SIZE] of integer;
  i: integer;

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

// Заполнение массива случайными числами от MIN_VALUE до MAX_VALUE
  for i := 1 to ARRAY_SIZE do
  begin
    randomNumbers[i] := Random(MAX_VALUE + 1); // Random(MAX_VALUE + 1) генерирует число от 0 до MAX_VALUE
  end;

// Вывод положительных значений из массива
  writeln('Положительные значения в массиве:');
  for i := 1 to ARRAY_SIZE do
  begin
    if randomNumbers[i] > 0 then
    begin
      writeln(randomNumbers[i]);
    end;
  end;

end.

В этом коде мы используем генератор случайных чисел, чтобы заполнить массив `randomNumbers` 15 случайными числами от 0 до 30. Затем мы проходим по массиву и выводим все положительные значения.