Question

вычислить сумму положительных и произведение отрицательных элементов массива написать программу в паскале

Answer 1

var a: array [1..10] of integer;

      s,s1,i: integer;

begin

  s:=0;

  s1:=1;

  for i:=1 to 10 do 

    begin

      readln(a[i]);

      if a[i]>0 then s:=s+a[i];

      if a[i]<0 then s1:=s1*a[i];

    end;

  writeln('Сумма: ',s,', произведение: ',s1);

end.

Answer 2

Конечно, вот пример программы на Pascal, которая вычисляет сумму положительных элементов и произведение отрицательных элементов в массиве:

pascalCopy code
program SumAndProduct;

const
  N = 5; // Размер массива

var
  arr: array[1..N] of integer;
  i: integer;
  positiveSum: integer;
  negativeProduct: integer;

begin
  // Вводим элементы массива
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;

  // Инициализируем переменные
  positiveSum := 0;
  negativeProduct := 1;

  // Вычисляем сумму положительных и произведение отрицательных элементов
  for i := 1 to N do
  begin
    if arr[i] > 0 then
      positiveSum := positiveSum + arr[i]
    else if arr[i] < 0 then
      negativeProduct := negativeProduct * arr[i];
  end;

  // Выводим результаты
  writeln('Сумма положительных элементов: ', positiveSum);
  writeln('Произведение отрицательных элементов: ', negativeProduct);

  readln;
end.

Эта программа позволяет вам ввести 5 элементов в массив и затем вычисляет сумму положительных и произведение отрицательных элементов. Если вы хотите изменить размер массива, измените значение константы N.