Question

Написать на паскале в массиве из n элементов найти произведение отрицательных элементов и сумму положительных.

Answer 1

Программа:

//Программа написана на PascalABC.NET 3.2 сборка 1325

begin

 var k: integer := ReadInteger('Введите количество элементов в массиве >');

 println('Введите',k,'элементов массива: ');

 var n: array of integer := ReadArrInteger(k);

 writeln('Произведение отрицательных элементов: ',n.Where(x -> x<0).Aggregate(1,(p,x) -> p*x));

 writeln('Сумма положительных элементов: ',n.Where(x -> x>0).Sum);

end.

Answer 2

Конечно! Вот пример кода на языке Паскаль, который выполняет указанную задачу:

pascalCopy code
program ProizvSum;
var
  arr: array of Integer;
  n, i: Integer;
  proizv: Integer;
  summa: Integer;
begin
  Write('Введите количество элементов массива: ');
  ReadLn(n);
  
  // Выделение памяти под массив
  SetLength(arr, n);
  
  // Ввод элементов массива
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент ', i + 1, ': ');
    ReadLn(arr[i]);
  end;
  
  // Инициализация произведения и суммы
  proizv := 1;
  summa := 0;
  
  // Вычисление произведения и суммы
  for i := 0 to n - 1 do
  begin
    if arr[i] < 0 then
      proizv := proizv * arr[i]
    else if arr[i] > 0 then
      summa := summa + arr[i];
  end;
  
  // Вывод результата
  WriteLn('Произведение отрицательных элементов: ', proizv);
  WriteLn('Сумма положительных элементов: ', summa);
end.

В этом примере программа запрашивает у пользователя количество элементов массива, затем последовательно запрашивает каждый элемент массива. Затем программа вычисляет произведение отрицательных элементов и сумму положительных элементов и выводит результат на экран.

Обратите внимание, что в примере используется динамический массив arr, который выделяется с помощью функции SetLength. Это позволяет создать массив нужного размера во время выполнения программы.