Даны масивы 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 (B)))

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.