Question

2. Напишите программу вычисления в массиве из n элементов, заданных датчиком случайных чисел из промежутка от -13 до 25, количества четных элементов.

Answer 1

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=ArrRandom(Readinteger('n='),-13,25); a.Println;
  Writeln('k=',a.Where(x->x.IsEven).Count)
end.

Тестовое решение:
n= 15
17 20 22 -11 1 10 22 3 1 3 16 9 23 -8 15
k=6

Answer 2

Const n = 10;
Var
  i,k : Byte;
  m : array[1..n] of Integer;
Begin
  Randomize;
  k:=0;
  For i:=1 to n do
  Begin
   m[i]:=-13+Random(39);
   Write(m[i],' ');
   If not Odd(m[i]) then Inc(k);
  end;
  Writeln;
  Writeln('Количество чётных элементов: ',k);
end.

Answer 3

Конечно, вот пример программы на языке Python, который выполняет задачу подсчета количества четных элементов в массиве из n случайных чисел в диапазоне от -13 до 25:

import random

def count_even_elements(arr):
    even_count = 0
    for num in arr:
        if num % 2 == 0:
            even_count += 1
    return even_count

def main():
    n = int(input("Введите количество элементов в массиве: "))

# Генерируем массив из n случайных чисел в диапазоне от -13 до 25
    random_array = [random.randint(-13, 25) for _ in range(n)]

# Выводим сгенерированный массив
    print("Сгенерированный массив:", random_array)

# Вычисляем количество четных элементов в массиве
    even_count = count_even_elements(random_array)

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

if __name__ == "__main__":
    main()

В данной программе: 1. Используется функция `random.randint(-13, 25)`, чтобы сгенерировать случайное целое число в диапазоне от -13 до 25. 2. Создается массив `random_array` из n случайных чисел. 3. Функция `count_even_elements` подсчитывает количество четных элементов в массиве. 4. Выводится исходный массив и количество четных элементов.

Просто скопируйте этот код в файл с расширением .py и запустите его, чтобы увидеть результат.