Задано: массив 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;
|
Главная
Каталог файлов
