Сформироватьмассив из положительных элементов.
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] >- 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.