Arrays A and B of N numbers (N = 10) are given in a random way. Form a new array, each element

Arrays A and B of N numbers (N = 10) are given in a random way. Form a new array, each element of which is equal to the minimum of the corresponding elements of these arrays

var a: array [1..10] of integer;

b: array [1..10] of integer;

mina, minb, i: integer;

min: array [1..2] of integer;

begin

randomize;

mina: = 1;

minb: = mina;

for i: = 1 to 10 do a [i]: = random (100);

for i: = 1 to 10 do b [i]: = random (100);

for i: = 2 to n do if a [i] <a [min] then mina: = a [i];

for i: = 2 to n do if b [i] <b [min] then minb: = b [i];
min [1]: = mina;

min [2]: = minb;

end.