Значения массива выбираются случайным образом.
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.
