запишите программу которая заполняет массив случайными числами на отрезке от -2 до 2 и считает сумму положительных элементов массива

паскаль авс

var A: array[1..10] of integer;Sum,i : integer;beginSum := 0;For i:=1 to 10 do begin randomize; a[i] := random(-2,2); endFor i:=1 to 10 do if a[i] >= 0 then Sum = Sum + a[i];end;

в переменной сум сумма положительных элементов масива