найти сумму положительных элементов массива, значение которых меньше 10

dracon4ik у вас не полная вроде, нет условия на положительность.

Вот для pascal.

var

x: array [1 ... 100] of Integer;

i, n: Integer;

s: Integer;

begin

writeln ('Skolko elementov');

read (n);

s : = 0;

for i : = 1 to n do begin

Write ('x[', i, '] = ');

Readln (x[i]);

if (x[i] > 0) and (x[i] < 10) then s : = s + x[i];

end;

Writeln (s);

end.