Помогите пожалуйста составить программы в паскале: 1. сформировать массив из 15 элементов случайным образом и вывести

1. const N = 15;var a: array[1..N] of integer; i: byte; b: integer;begin for i:=1 to N do read(a[i]); for i:=1 to N div 2 do begin b := a[i]; a[i] := a[N-i+1]; a[N-i+1] := b; end; for i:=1 to N do write(a[i],\' \'); writeln;end.2.const N = 10;var arr: array[1..N] of integer; i, min, max: byte; sum: integer;begin randomize; for i := 1 to N do begin arr[i] := random(50); write (arr[i]:3); end; writeln; min := 1; max := 1; for i := 2 to N do begin if arr[i] < arr[min] then min := i else if arr[i] > arr[max] then max := i; end; writeln(arr[min],\' \',arr[max]); if min > max then begin i := min; min := max; max := i; end; sum := 0; for i:=min+1 to max-1 do begin sum := sum + arr[i] end; writeln(sum);end.