Question

Дан массив 300 целых чисел в промежутке (-205,309) подсчитать количество отрицательных чисел ,делящихся на 4 Помогите , очень срочно

Answer 1

Ответ:

program n1;

var q,w:integer;

a: array[1..300] of integer;

begin

 for q:=1 to 300 do begin

a[q]:=random(514)-205;  

if a[q]<0 then begin

if a[q]mod 4=0 then

 w:=w+1;

end;

end;

writeln(w);

           

end.

Объяснение:

Answer 2

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

begin

 var a := ArrRandom(300, -205, 309);

 a.Println;  // удалите строку, если вывод не нужен

 Println('Кол-во', a.Count(p -> (p < 0) and (p mod 4 = 0)))

end.

Answer 3

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

pythonCopy code
# Заданный массив чисел
numbers = [your_numbers_here]

# Инициализация счетчика отрицательных чисел, делящихся на 4
count = 0

# Перебор всех чисел в массиве
for num in numbers:
    # Проверка, является ли число отрицательным и делится ли оно на 4 без остатка
    if num < 0 and num % 4 == 0:
        count += 1

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

Вам нужно заменить your_numbers_here на ваш массив из 300 целых чисел. Запустите этот код, и вы получите количество отрицательных чисел, делящихся на 4, в вашем массиве.