program massiv;

var b:array[1..100]of integer;

r,n,m,i,p,k,a:integer;

begin

randomize;writeln ('a=');readln(a);

writeln('n=');readln(n);

for i:=1 to n do begin

b[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]<a)and(b[i]>0)) then m:=m+1;

end;end;writeln('удвоенная сумма положительных элементов ',p);

writeln('kол-во элементов массива , значения которых больше заданного числа',k);

writeln('количество положительных элементов не превсходящих заданного числа',m);

end.