Суммирование элементов массива, удовлетворяющих заданному условию
Задано: массив 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;
Опубликовал Kest
November 12 2008 21:15:27 ·
0 Комментариев ·
14108 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
