Question

Массив из 15 чисел задан датчиком случайных чисел на интервале (-18;37) заменить нулями все отрицательные элементы ​

Answer 1

Ответ:

var f:array[1..15] of integer;

i:integer;

begin

 randomize;

 for i:=1 to 15 do

 begin

   f[i]:=random(-18,37);

   if f[i]<0 then f[i]:=0;

   write(f[i],' ');

 end;

end.

Объяснение:

34 0 0 4 25 4 0 0 25 0 36 4 0 36 25

Answer 2

===== PascalABC.NET =====

begin

 var a := ArrRandom(15, -18, 37);

 a.Println;

 a.Transform(p -> p < 0 ? 0 : p);

 a.Print

end.

Answer 3

Для замены всех отрицательных элементов массива на нули, вы можете пройтись по каждому элементу массива и проверить, является ли он отрицательным. Если это так, замените его на ноль. Вот пример кода на Python:

pythonCopy code
import random

# Создание массива из 15 случайных чисел на интервале (-18, 37)
array = [random.uniform(-18, 37) for _ in range(15)]

# Замена отрицательных элементов на нули
for i in range(len(array)):
    if array[i] < 0:
        array[i] = 0

print(array)

Обратите внимание, что я использовал функцию random.uniform(-18, 37), чтобы сгенерировать случайное вещественное число на интервале (-18, 37). Если вы хотите работать только с целыми числами, замените random.uniform на random.randint(-18, 36), так как randint включает нижнюю границу, но исключает верхнюю.