Question

Решите, пожалуйста Заполнить массив из 13 элементов случайными числами в интервале [-200;100] и найти количество отрицательных элементов массива меньше-семи и больше -двадцати.

Answer 1

 const     n = 13;
      var   a : array [1..n] of integer;
   i,k : integer;
  begin
   randomize;
    for i := 1 to n do
      a[i] := -200 + random(301);
   k := 0; 
    for i := 1 to n do
     if  (a[i]<-7)      and (a[i]>-20) then
       k := k +1; 
         writeln (k);
      end.

Answer 2

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

import random

# Создаем массив из 13 элементов со случайными числами в интервале [-200, 100]
array = [random.randint(-200, 100) for _ in range(13)]

# Выводим исходный массив
print("Исходный массив:", array)

# Находим количество отрицательных элементов массива, которые меньше -7 и больше -20
count = len([x for x in array if x < -7 and x > -20])

# Выводим количество отрицательных элементов массива, которые меньше -7 и больше -20
print("Количество отрицательных элементов массива, которые меньше -7 и больше -20:", count)

После выполнения данного кода, мы получим исходный массив из 13 случайных чисел в интервале [-200, 100] и количество отрицательных элементов массива, которые меньше -7 и больше -20.