Дан массив вещественных чисел x(x1?x2,..,xn).Найти произведение положительных элементов массива и подсчитать их число.
Дан массив вещественных чисел x(x1?x2,..,xn).Найти произведение положительных элементов массива и подсчитать их число.
Гость
Ответ(ы) на вопрос:
Гостьconst n=5;
var
x:array[1..n]of real;
i,k:integer;
p:real;
begin
p:=1;
for i:=1 to n do
begin
readln(x[i]);
if x[i]>0 then
begin
p:=p*x[i];
k:=k+1;
end;
end;
writeln('p=',p);
writeln('k=',k);
end.
Не нашли ответ?
Похожие вопросы