program PositiveSum;
var
arr: array[1..100] of integer;
i, n, sum: integer;
begin
sum := 0;

// Вводим количество элементов массива
write('Введите количество элементов массива: ');
readln(n);

// Заполняем массив случайными числами из промежутка [-100;100] и находим сумму положительных элементов, меньших 10
for i := 1 to n do
begin
arr[i] := Random(201) - 100;
if (arr[i] > 0) and (arr[i] < 10) then
sum := sum + arr[i];
end;

// Выводим исходный массив
writeln('Исходный массив:');
for i := 1 to n do
write(arr[i], ' ');
writeln;

// Выводим сумму положительных элементов, меньших 10
writeln('Сумма положительных элементов, значения которых меньше 10: ', sum);
end.