Помогите написать программу ** паскале абс тема "создание одномерных массивов" Создать и...

Question

Помогите написать программу на паскале абс
тема "создание одномерных массивов"
Создать и вывести на экран 2 одномерных массива целых чисел размерности N из
текстового файла. Найти и вывести произведение всех четных элементов.

Comments

А где же этот текстовый файл?

---

походу самому придумать надо

---

Это тоска... придумывать текстовый файл для двух массивов...

---

Обратите свой вопрос к себе.

---

напиши уж

---

пожалуйста

---

Вас для меня больше нет. Не терплю подобных обращений.

---

извени уж

---

мне просто очень срочно надо эту программу написать

Answer 1

//PascalABC.NET 3.0 сборка 1139 (10.01.2016)
const
    n = 10;

begin
    var a := ArrRandom(n, 1, 100);
    var b := ArrRandom(n, 1, 100);
    var s := a.Union(b).Where(x -> x mod 2 = 0).Aggregate((S, x) -> S * x);
    Print(S);
end.

ввод из текстового файла писать влом, рандом быстрее

Comments

a.Concat(b).Where(x->x mod 2=0).Aggregate(1.0,(p,q)->p*q);