Сформировать массив в размерности 1-50 с помощью генератора случайных чисел. 1) программа подсчетов суммы элементов массива 2) -//- ; найти минимум в массиве. от 30 до 50

var a: array [1..50] of integer; i,n,min:integer; Begin randomize; for i:=1 to 50 do a[i]:=random(100); for i:=1 to 50 do write(a[i],' '); for i:=1 to 50 do n:=n+a[i]; min:=a[1];f or i:=1 to 50 do if min>a[i] then min:=a[i]; writeln; writeln('sum ',n); writeln('min ',min); End.