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

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

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ArrRandomReal(15,-10,10); a.Println; Writeln;
  var m:=a.IndexMax;
  var n:=a.IndexMin;
  if m>n then (m,n):=(n,m);
  var b:=a[m+1:n]; b.Println;
  if b.Length>0 then Writeln('П=',b.Aggregate(1.0,(p,x)->p*x))
  else Writeln('Нет элементов между минимумом и максимумом')
end.

Тестовое решение:
8.14904220316049 -7.97861530351388 6.22268662612079 -4.04729378132489 -1.70455696606289 2.5380224606665 9.52389909863653 6.96433030858838 3.31410986991325 4.31776128444716 -3.9021073439634 -1.69448156454343 -8.68306868648299 7.89553786529952 -0.403709360586344

6.96433030858838 3.31410986991325 4.31776128444716 -3.9021073439634 -1.69448156454343
П=658.932534926112

  154
+  65

  241
На самом деле мы знаем, что в десятичной системе счисления 4+5=9. А у нас стоит в младшем разряде суммы единица, что меньше 9. Следовательно, был перенос единицы в старший разряд, а само число получилось равным 11. 11-9=2, значит основание системы счисления на 2 меньше, чем десять. 10-2=8. Предполагаем, что система восьмеричная.
Выполняем сложение по правилам восьмеричной системы.
  154
+  65

  241
1) 4+5 = 9₁₀ = 11₈, пишем 1 и единица идет в старший разряд
2) 5+6+1 = 12₁₀ = 14₈, пишем 4 и единица идет в старший разряд.
3) 1+1=2.
Все верно.
ответ: В системе счисления по основанию 8