Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-100; 100] найти сумму положительных элементов, значения которых меньше 10.

Pascal

Var

mas:array[1 ... 999] of integer;

n, sum:integer;

begin

sum:=0;

randomize;

readln (n) ;

for i:=1 to n do

begin

mas[i]:=random (201) - 100;

write (mas[i],' ') ;

end;

writeln;

for i:=1 to n do

if (mas[i]>0) AND (mas[i]<10) then

sum:=sum+mas[i];

writeln (sum) ;

end.