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