20231002_summa_elementov_massiva презентация

Сумма всех элементов массива
Для нахождения суммы элементов массива используется стандартный метод накопления суммы по шагам:
Сначала предполагается, что сумма равна 0
Далее на каждом шаге цикла к имеющемуся
значению суммы добавляется очередное
слагаемое
Полученный результат сохраняется как
значение переменной S
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln (s)

Сумма всех элементов массива
Трассировка алгоритма
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln (s)

Сумма всех элементов, удовлетворяющих некоторому условию
В этом случае в тело цикла добавляется условный оператор
s:=0;
for i:=1 to n do
if a[i]=условие then s:=s+a[i];
writeln (s)
Найти сумму четных
s:=0;
for i:=1 to n do
if a[i] mod 2=0 then s:=s+a[i];
writeln (s)
Найти сумму положительных
s:=0;
for i:=1 to n do
if a[i] >0 then s:=s+a[i];
writeln (s)
Условие может быть сложным.
Тогда простые условия соединяются
логическими операциями and, or, xor
Найти сумму элементов, принадлежащих интервалу [0;10]
s:=0;
for i:=1 to n do
if a[i] >=0 and a[i]<=10 then s:=s+a[i];
writeln (s)

Нахождение среднего арифметического
Переменная S должна быть описана как real
s:=0;
for i:=1 to n do
s:=s+a[i];
s:=s/n
writeln (s)
Внимание! Деление суммы на количество элементов должно
осуществляться после окончания цикла.

Нахождение произведения
p:=1;
for i:=1 to n do
p:=p*a[i];
writeln (p)
Внимание! Переменной р перед входом в цикл должна быть присвоена
единица!

Нахождение количества элементов с заданными свойствами
k:=0;
for i:=1 to n do
if a[i]=условие then k:=k+1;
writeln (k)
Как найти среднее арифметическое элементов, удовлетворяющих
определенному условию?
k:=0; s:=0;
for i:=1 to n do
if a[i]=условие then
begin
k:=k+1; s:=s+a[i]
end;
s:=s/k
writeln (s)