Даны масивы a(10) b(15). напечатать массив в котором произведение положительных элиментов больше. паскаль с подпрограммы .процедуры, ввод с клавиатуры

Type   v = array of integer; function prodpos(a: v): longint; var   i: integer; begin   result : = 1;   foreach var p: longint in a do       if p > 0 then result : = result * p end; procedure initmas(var a: v; title: string); var   i: integer; begin   writeln(title, '(', length(a, 0), '). вводите элементы.');   for i : = 0 to length(a, 0) - 1 do       read(a[i]) end; procedure getmas(var a: v; dim: integer; title: string); begin   setlength(a, dim);   initmas(a, title); end; const   n1 = 10;   n2 = 15; var   a, b: v; begin   getmas(a, n1, 'массив а');   getmas(b, n2, 'массив b');   writeln('большее произведение положительных ', max(prodpos(a), prodpos( end. тестовый прогон: массив а(10). вводите элементы. 1 1 1 1 2 1 2 2 1 5 массив b(15). вводите элементы. 1 0 2 4 0 1 -3 -4 1 2 3 1 -3 0 2 большее произведение положительных 96

Procedure vvod(var q: mas; p: integer); var i: integer; begin for i: =1 to p do read(q[i]); end; program obrab(n: mas; w: integer; var max: real; ); var i: integer; begin max: =1; for i: =1 to w do begin if n[i]> 0 then max: =max*n[i]; end; end; program sravnenie(u: mas; o: mas; m.r: integer; maxa,maxb: real); var i,j: integer begin if maxa> maxb then begin for i: =1 to m do write(u[i]); end   else begin for i: =1 to r do write(o[i]); end; end; begin writeln('vvedite kol-vo elementov mas1'); readln(n); vvod(a,n); writeln('vvedite kol-vo elementov mas2'); readln(l); vvod(b,l); obrab(a,n,max1); obrab(b,l,max2); sravnenie(a,b,n,l,max1,max2); end.

1-1

2-1

3-2

4-3

5-2

6-н

7-2

8-4.6

9-3

10-н

11-1

12-3

НЕ ТОЧНО

Объяснение:

Я СТАРАЛАСЬ