Помогите решить задачи на паскале

Question

Помогите решить задачи на паскале

Vladimir Pinkman Ученик (123), на голосовании 1 неделю назад

Answer 1

Никита Малов Мастер (1690) 1 месяц назад

крсивые ножки

Answer 2

 program SumEvenNumbers; 
var 
  arr: array[1..20] of integer; // Массив размерностью 20 
  i, sum: integer; // Счетчик и сумма четных чисел 
  randomize; // Инициализация генератора случайных чисел 
 
begin 
  // Заполнение массива случайными числами от 100 до 200 
  for i := 1 to 20 do 
    arr[i] := random(101) + 100; 
 
  sum := 0; // Инициализация суммы четных чисел 
  // Поиск и суммирование четных чисел 
  for i := 1 to 20 do 
    if (arr[i] mod 2 = 0) then 
      inc(sum, arr[i]); 
 
  writeln('Сумма четных элементов массива: ', sum); 
end.

Answer 3

Пример решения задачи на языке Python:

```python
import random

# Заполнение массива случайными числами от 100 до 200
array = [random.randint(100, 200) for _ in range(20)]

# Нахождение суммы четных элементов массива
sum_even = sum(num for num in array if num % 2 == 0)

print("Массив целых чисел:", array)
print("Сумма четных элементов массива:", sum_even)
```

Пример вывода:
```
Массив целых чисел: [141, 197, 196, 125, 131, 104, 190, 139, 104, 177, 150, 131, 169, 132, 165, 189, 114, 141, 148, 127]
Сумма четных элементов массива: 882
```