набрать программу нахождения суммы всех элементов массива и подсчитать количество элементов массива

{Набрать программу нахождения суммы всех элементов массива и подсчитать количество элементов массива }CONST max=12;VAR i:byte; sum:integer; vt:array [1..max] of shortint;BEGIN randomize; writeln('Начальный массив'); for i:=1 to max do begin vt[i]:=random(-32,127); write(vt[i]:6); end; writeln(); for i:=1 to max do sum:=sum+vt[i]; writeln('Сумма элементов: ', sum); END.