Question

Помогите решить пожалуйста!! 30 баллов! Заполнить массив из 10 элементов случайными числами в интервале [-100,100] и подсчитать КОЛИЧЕСТВО отрицательных элементов..

Answer 1

Ответ:

var a:array [1..10] of integer;

i,k:integer;

begin

write ('Массив ');

for i:=1 to 10 do

begin

a[i]:=random(201)-100;

write (a[i]:5);

if a[i]<0 then k:=k+1

end;

writeln;

writeln('Количество отрицательных чисел ',k)

end.

Answer 2

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

 var a := ArrRandom(10, -100, 100);

 a.Println.Where(p -> p < 0).Count.Println

end.

Answer 3

Конечно, я могу помочь вам с этим заданием! Вот пример кода на языке Python, который решает вашу задачу:

pythonCopy code
import random

# Создаем пустой массив
array = []

# Заполняем массив случайными числами
for _ in range(10):
    # Генерируем случайное число в интервале [-100, 100]
    number = random.randint(-100, 100)
    # Добавляем число в массив
    array.append(number)

# Подсчитываем количество отрицательных элементов
count = 0
for num in array:
    if num < 0:
        count += 1

# Выводим результат
print("Количество отрицательных элементов в массиве:", count)

Каждый элемент массива генерируется случайным образом с помощью функции random.randint(). Затем мы проверяем каждый элемент массива на отрицательность и увеличиваем счетчик count, если элемент отрицательный. В конце выводим результат.

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