Написать программу на паскале абс тема "создание одномерных массивов" создать и вывести на экран 2 одномерных массива целых чисел размерности n из текстового файла. найти и вывести произведение всех четных элементов.
//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.
ввод из текстового файла писать влом, рандом быстрее
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.
ввод из текстового файла писать влом, рандом быстрее