Значения массива выбираются случайным образом.

var

A: array[1..10] of integer;

summa, polozh, i: integer;

begin

 randomize;

 for i := 1 to 10 do

 begin

 A[i] := random(100) - 50;  

 if A[i] > 0 then

 begin

 Inc(polozh);

 summa := summa + A[i];

 end;

 end;

 writeln('Сумма положительных: ', summa);

 writeln('Количество положительных: ', polozh);

 write('Все элементы: ');

 for i := 1 to 10 do write(A[i], ' ');

end.