Массивы В1 (10) и В2 (10) заполнены случайными числами. Сформировать третий массив, каждый элемент которого равен большему из соответствующих элементов данного массива. Вывести три массива.

Var b1, b2, b3:array[1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do begin

b1[i]:=random (-50,50) ;

b2[i]:=random (-50,50) ;

b3[i]:=max (b1[i], b2[i]) ;

end;

write ('B1 Mass ') ;

for i:=1 to 10 do

write (b1[i]:3,' ') ;

writeln;

write ('B2 Mass ') ;

for i:=1 to 10 do

write (b2[i]:3,' ') ;

writeln;

write ('B3 Mass ') ;

for i:=1 to 10 do

write (b3[i]:3,' ') ;

end.