Заданы массивы А и В из N чисел (N=10) случайным образом.

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]lt;a[min] then mina:=a[i];

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

min[1]:=mina;

min[2]:=minb;

end.