program ArrayCalculation;

var
A: array[1..10] of integer;
i, sumPositive, countNegative: integer;

begin
sumPositive := 0;
countNegative := 0;

// Заполняем массив A случайными числами от -50 до 50
Randomize;
for i := 1 to 10 do
begin
A[i] := Random(101) - 50;
Write(A[i], ' ');
end;

// Подсчитываем сумму положительных и количество отрицательных элементов
for i := 1 to 10 do
begin
if A[i] > 0 then
sumPositive := sumPositive + A[i]
else if A[i] < 0 then
countNegative := countNegative + 1;
end;

Writeln;
Writeln('Сумма положительных элементов: ', sumPositive);
Writeln('Количество отрицательных элементов: ', countNegative);

end.