Question

Дан одномерный массив размером 10 Заполнить его числами из интервала [-15:15],случайным образом и напечатать только положительные числа

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-15,15); a.Println;
  a.Where(t->t>0).Println
end.

Пример
4 -11 7 12 -10 8 -9 -14 1 -15
4 7 12 8 1

Answer 2

Const
  N = 10;
Var
  M:array[1..N] of integer;
  i,k:integer;
Begin
  Randomize;
  Write('Эти числа не печатаются... ( ');
  For i:= 1 to N do
  Begin
    M[i] := random(31)-15;
    Write(M[i],' ');
  End;
  WriteLn(')');
  Write('Положительный числа:');
  For i:= 1 to N do
    if (M[i] > 0) then
      Write(' ',M[i]);
End.

Answer 3

Для заполнения одномерного массива случайными числами из интервала [-15:15] и вывода только положительных чисел, вы можете использовать язык программирования, такой как Python. Вот пример кода:

pythonCopy code
import random

def generate_random_array(size, low, high):
    return [random.randint(low, high) for _ in range(size)]

def print_positive_numbers(arr):
    positive_numbers = [num for num in arr if num > 0]
    print("Положительные числа массива:", positive_numbers)

if __name__ == "__main__":
    array_size = 10
    lower_bound = -15
    upper_bound = 15

    random_array = generate_random_array(array_size, lower_bound, upper_bound)
    print("Сгенерированный массив:", random_array)

    print_positive_numbers(random_array)

Обратите внимание, что в этом коде мы создаем функцию generate_random_array, которая генерирует случайный массив заданного размера (size) с числами в указанном диапазоне (low и high включительно). Затем мы используем функцию print_positive_numbers, чтобы вывести только положительные числа из массива.

Пожалуйста, убедитесь, что у вас установлена последняя версия Python, чтобы код работал без ошибок.