СРОЧНО! Дан цело численный массив. Найти: КАЖДУЮ ОТДЕЛЬНО! А) удвоенную сумму…

program massiv; var b: array[1… 100]of integer; r,n,m,i,p,k,a: integer; beginrandomize; writeln ('a='); readln (a); writeln ('n='); readln (n); for i: =1 to n do beginb[i]: =random (50) -25; writeln ('a[',i,']='); if b[i]>0 then begin r: =r+b[i]; p: =r*2; if b[i]>a then k: =k+1; if (b[i]0) then m: =m+1; end; end; writeln ('удвоенная сумма положительных элементов ',p); writeln ('kол-во элементов массива, значения которых больше заданного числа',k); writeln ('количество положительных элементов не превсходящих заданного числа',m); end.