Program PositiveSum;

var
arr: array [1..10] of integer;
i, positiveSum: integer;

begin
positiveSum := 0;

writeln('Введите 10 целых чисел:');

for i := 1 to 10 do
begin
write('Введите число ', i, ': ');
readln(arr[i]);

if arr[i] > 0 then
positiveSum := positiveSum + arr[i];

end;

writeln('Сумма положительных элементов массива: ', positiveSum);
end.