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

выводит

Добавьте переменную i в описание

дада

не заметил

выводит

var mas:array[1..999] of integer; n,sum:integer;begin sum:=0; randomize; readln(n); for i:=1 to n dobegin  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.