Задано: массив P = (P1,P2,…,Pn); T — заданное число.
Определить: сумму элементов массива P, удовлетворяющих заданному условию, например Pi > T .
Исходные данные:
N — размер массива;
P — массив размером N;
T — заданное значение, с которым сравниваются элементы массива;
Результат: S — сумма элементов массива P, удовлетворяющих условию.
Вспомогательная переменная : I — индекс — управляющая переменная цикла.
Procedure SUM_USLOV ( n : integer; P :mas; T: real; var S : real);
{процедура определения суммы элементов, удовлетворяющих условию}
begin S := 0; {обнуление переменной под сумму элементов}
for i := 1 to n do if P [ i ] > T then S := S+1
end;