ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! 

Заданы массивы A и B чисел (N=10) случайным образом. Сформировать новый массив, каждый элемент которого равен: сумме этих массивов ; минимальную из соответствующих элементов этих массивов.

1.var a, c, b: array[1..10] of integer; i: integer;

begin randomize; for i := 1 to 10 do begin a[i] := random(1000);b[i] := random(1000); end; for i := 1 to 10 do write(a[i], ' '); for i := 1 to 10 do write(b[i], ' '); for i := 1 to 10 do c[i] := a[i] + b[i]; for i := 1 to 10 do write(c[i], ' ');end.

2.

var a, c, b: array[1..10] of integer; i: integer;function min(a,b:integer):integer;beginif a>b then min:=b else min:=a;end;begin randomize; for i := 1 to 10 do begin a[i] := random(1000);b[i] := random(1000); end; for i := 1 to 10 do write(a[i], ' '); for i := 1 to 10 do write(b[i], ' '); for i := 1 to 10 do c[i] := min(a[i],b[i]); for i := 1 to 10 do write(c[i], ' ');end.

type ar10 = array[1..10] of integer;var a, b,c,d: ar10;i: integer;procedure show(a:ar10);begin    for i := 1 to 10 do         write(a[i], ' ');end;begin    randomize;    for i := 1 to 10 do begin         a[i] := random(1000);        b[i] := random(1000);         c[i] := a[i] + b[i];        d[i] := min(a[i] ,b[i]);    end;    show(a);    show(b);    show(c);    show(d);end.