uses crt-

vari,k,pr,size,max:integer-

b:array[1..10] ofinteger-

a:array[1..10] ofinteger-

begin-

clrscr-

pr:= 1-

writeln(‘Введите размер массива’)-

readln(size)-

writeln(‘Введите элементы массива’)-

FOR i := 1 TO sizedo

begin

readln(b[i])-

end-

begin

IF b[i] &gt- 0 THEN

-begin

-k := k + 1-

-a[k] := b[i]-

-end-

end-

FOR i := 1 TO k do

begin

pr := pr * a[i]-

end-

writeln(‘Произведение положительных эл.массива ‘, pr)-

writeln(‘Cформираванный массив A(I):’)-

FOR i := 1 TO k do

begin

writeln(a[i])-

end-

end.