Вопрос по информатике:
Дан массив вещественных чисел x(x1?x2,..,xn).Найти произведение положительных элементов массива и подсчитать их число.
- 02.11.2017 16:33
- Информатика
- remove_red_eye 7159
- thumb_up 33
Ответы и объяснения 1
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.
- 03.11.2017 21:43
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.