Массив

[Xv15]

Переписать в массив Y подряд положительные элементы массива Х N<=40.
составить программу и блок схему если не сложно

[Stilet]

Покажи как ты вводишь массив Х

[Xv15]

Через оператор рандом

for i:=1 to b do
Randomize
const n=5;
var a:array[1..n] of integer;
Begin
randomize;
for i:=1 to n do
Begin
a[i]:=random(1000);
End;
END.

[alex_fcsm]

А теперь в цикле просматривай массив и если элемент подходит под условие, то заноси его в новый массив

for i:=1 to n do
 if a[i]>0 then begin
                    inc(ind);
                     Y[ind]:=a[i];
                   end;

[Xv15]

Ладно осталось только сделать программу

Спасибо большое)