Top.Mail.Ru
Ответы

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

По дате
По рейтингу
Аватар пользователя
Знаток
13лет

на с++

#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;
}

Аватар пользователя
Мастер
13лет

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.

Аватар пользователя
Просветленный
13лет

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