Подсчёт положительных чисел и их суммы в массиве на языке Pascal
При программировании на языке Pascal нередко возникают задачи, связанные с обработкой массивов данных. Одна из таких задач — определение количества и суммы положительных элементов в массиве чисел.
Пример алгоритма
Рассмотрим пример алгоритма, который выполняет необходимую операцию для массива из 10 элементов. Данный пример демонстрирует основные этапы реализации задачи на языке Pascal.
program SumPositiveElements;
var
arr: array[1..10] of integer;
i, positiveCount, positiveSum: integer;
begin
// Инициализация массива примерными значениями
arr := (3, -7, 12, 0, 5, -2, 8, -9, 4, 11);
positiveCount := 0;
positiveSum := 0;
// Проход по элементам массива и обработка положительных чисел
for i := 1 to 10 do
begin
if arr[i] > 0 then
begin
positiveCount := positiveCount + 1;
positiveSum := positiveSum + arr[i];
end;
end;
// Вывод результатов
writeln('Количество положительных чисел: ', positiveCount);
writeln('Сумма положительных чисел: ', positiveSum);
end.
Объяснение кода
- Инициализация массива: задаём массив из 10 целых чисел с примерными значениями.
- Переменные: используем переменные
positiveCount для подсчета количества положительных чисел и positiveSum для их суммы.
- Цикл:
for используется для прохода по каждому элементу массива. Условие if arr[i] > 0 позволяет обрабатывать только положительные числа.
- Результат: после завершения цикла выводим результаты на экран.
Применение
Этот алгоритм может быть применён для анализа данных в различных задачах, где важно знание количества и общей суммы только положительных значений. В реальной практике, такие техники часто используются для анализа числовых данных, например, финансовых отчётов или измерительных данных.
Категория: Программирование
Теги: алгоритмы, работа с массивами, анализ данных