Question

Дан одномерный моссив из 7 элементов целых случайных чисел вывести на экран только четные числа

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

begin
writeln('Array:');
var ar:=ArrRandomInteger(7,-10,10);
ar.Println;
writeln('Result:');
foreach var x in ar do
if not(odd(x)) then write(x:4);
end.

Пример работы программы:
Array:
-1 9 3 10 -4 -1 8
Result:
  10  -4   8

Answer 2

Для вывода на экран только четных чисел из одномерного массива из 7 элементов целых случайных чисел, вы можете использовать следующий код на языке программирования Python:

# Импортируем модуль random для генерации случайных чисел
import random

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

# Выводим на экран только четные числа из массива
for num in array:
    if num % 2 == 0:
        print(num)

В этом коде мы используем модуль `random` для генерации случайных чисел. Затем мы создаем одномерный массив `array` из 7 элементов, используя генератор списка. Далее мы проходим по каждому элементу массива и проверяем, является ли число четным с помощью оператора `%` (остаток от деления на 2). Если число четное, то оно выводится на экран.

Пример вывода: ``` 4 10 ```

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