Информатика. Часть 1. Мойзес О.Е - 113 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

113
Аналогично вычисляется и произведение
z = a
1
⋅ a
2
⋅ ... ⋅ a
n
=
∏
=
20
1i
i
a ,
но с той разницей, что для его накопления используется выражение
P =
P
∗
a
i
, а начальное значение произведения должно быть равно единице
(P=1).
Схема алгоритма и программа вычисления суммы и произведения
Конец
Вывод
s,p
s = 0
p=1
Начало
Ввод
а
i
S=S+ a
i
P=P *a
i
i = 1,20
Program SumPr;
var a:array[1..20]of real;
i: integer;
P,s: real;
Begin
for i:=1 to 20 do
begin
writeln(’Введите а’,i);
readln(a[i]);
end;
s:=0.0; p:=1;
for i:=1 to 20 do
begin
s:=s+a[i];
p:=p
٭a[i];
end;
writeln(’s=’,s:10,
’ p=’,p:10);
End.
Пример.
Дана последовательность значений b
1
, b
2
, …, b
10.
Вычислить сумму отрицательных элементов массива, превышающих
значение переменной
m и произведение положительных элементов
данного массива.
Program Prim1;

Страницы