Посчитать сумму элементов массива, заполненного случайными числами…

Program n1; Uses CRT; Const n=10; Var a: array[1… n] of integer; i,sum,pr,max,min: integer; beginClrScr; Randomize; for i: =1 to n dobegina[i]: =random (50); write (a[i]: 3); sum: =sum+a[i]; If a[i]>max then max: =a[i]; end; min: =max; For i: =1 to n doIf min>a[i] then min: =a[i]; pr: =max*min; writeln; Writeln ('Summa vseh elementov=',sum,' Proizvedenie max i min=',pr); readlnend.