Сумма всех элементов, удовлетворяющих некоторому условию
В этом случае в тело
цикла добавляется условный оператор
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)