Конечно, давайте разберем, как вычислить сумму положительных и произведение отрицательных элементов массива в языке программирования Pascal.
Для начала, давайте определим план действий:
- Создадим массив и заполним его элементами.
- Инициализируем переменные для хранения суммы положительных элементов и произведения отрицательных элементов.
- Пройдемся по каждому элементу массива и проверим его знак.
- Если элемент положительный, добавляем его к сумме.
- Если элемент отрицательный, умножаем его на текущее произведение отрицательных элементов.
- Выведем результаты на экран.
Пример программы на Pascal:
program SumAndProduct;
var
arr: array[1.10] of integer;
i: integer;
sumPositive: integer;
productNegative: integer;
hasNegative: boolean;
begin
// Инициализация массива
arr[1] := 3;
arr[2] := -2;
arr[3] := -7;
arr[4] := 5;
arr[5] := -1;
arr[6] := 4;
arr[7] := 0;
arr[8] := -3;
arr[9] := 8;
arr[10] := 6;
// Инициализация переменных
sumPositive := 0;
productNegative := 1;
hasNegative := false;
// Проход по массиву
for i := 1 to 10 do
begin
if arr[i] > 0 then
begin
sumPositive := sumPositive + arr[i];
end
else if arr[i] < 0 then
begin
productNegative := productNegative * arr[i];
hasNegative := true;
end;
end;
// Вывод результатов
writeln('Сумма положительных элементов: ', sumPositive);
if hasNegative then
writeln('Произведение отрицательных элементов: ', productNegative)
else
writeln('В массиве нет отрицательных элементов.');
end.
Разберем этот код более детально:
- Мы создаем массив
arr
размером 10 и заполняем его значениями. В реальной ситуации можно использовать ввод значений с клавиатуры или случайные числа.
- Инициализируем переменные
sumPositive
для хранения суммы положительных чисел и productNegative
для хранения произведения отрицательных чисел. Переменная hasNegative
используется для проверки наличия отрицательных чисел в массиве.
- В цикле
for
пробегаем по каждому элементу массива. Если элемент положительный, добавляем его к sumPositive
. Если элемент отрицательный, умножаем его на текущее значение productNegative
и устанавливаем hasNegative
в true
.
- После завершения цикла выводим результаты. Если в массиве есть отрицательные числа, выводим их произведение, иначе сообщаем, что отрицательных чисел нет.
Этот пример демонстрирует основные операции с массивами и использование базовой логики для решения задачи на языке Pascal.