помогите решить пожалуйста: Дан массив чисел B=(b1,b2,...bk). Найти произведение положительных элементов массива.

решу на каком языке а ты бросишь на мой тел рублей 100

program task;
const n=10;
var b:array[1..n] of real;
i:integer;
p:=real;
begin
writeln('введите элементы массива: ')
for i:=1 to n do
readln(b);
p:=1;
for i:=1 to n do
if b>0 then p:=p*b;
writeln(p);
end.

на с++

#include <stdio.h>
#include <conio.h>
#define k (Чило элементов массива)

main()
{ float b[k], pr=1;
int i;
for(i=0; i<=k; i++)
{ scanf("%f", &b);
if(b>0)
pr=pr*b;
}
printf("/n %f", pr);
getch();
return 0;
}