Question

в последовательности из 15 целых чисел определить произведение(P) max и min ,сумму (S) отрицательных чисел данной последовательности

Answer 1

Программа на паскале:

var a,min,max,p,s,i:integer;

begin

write('a = ');

readln(a);

min:=a; max:=a;

if a<0 then s:=a else s:=0;

for i:=2 to 15 do

begin

write('a = ');

readln(a);

if a<min then min:=a;

if a>max then max:=a;

if a<0 then s:=s+a;

end;

writeln('min = ',min,' max = ',max,' p = ',min*max);

writeln('s = ',s);

end.

Пример (для 5 чисел):

a = 5

a = -4

a = 2

a = 7

a = -1

min = -4 max = 7 p = -28

s = -5

Answer 2

//PascalABC.NET 3.4

procedure abcd(k:integer; var smax,smin,sum:integer;
  var prod:BigInteger);
begin
  if k>smax then smax:=k;
  if k<smin then smin:=k;
  if k<0 then sum+=k;
  prod*=k
end;

begin
  var (smin,smax,sum):=(MaxInt,-MaxInt,0);
  var prod:BigInteger:=1;
  ReadSeqInteger('Введите 15 чисел->',15)
    .ForEach(p->abcd(p,smax,smin,sum,prod));
  Writeln('Min=',smin,', max=',smax,', сумма отрицательных=',sum);
  Writeln('Произведение=',prod)
end.

Answer 3

Для определения произведения максимального (max) и минимального (min) чисел в последовательности из 15 целых чисел, а также суммы (S) отрицательных чисел, следует выполнить следующие шаги:

1. Прочитать последовательность из 15 целых чисел.
2. Инициализировать переменные для max и min значений, установив их в минимально и максимально возможные значения соответственно. Предположим, что это min = infinity и max = -infinity.
3. Инициализировать переменную для суммы отрицательных чисел S, установив ее равной нулю.
4. Проход по каждому числу в последовательности:
   • Если текущее число больше текущего значения max, обновить max этим числом.
   • Если текущее число меньше текущего значения min, обновить min этим числом.
   • Если текущее число отрицательное, добавить его к сумме S.

Вот пример кода на Python, выполняющего указанные действия:

pythonCopy code
def find_product_and_sum(sequence):
    max_num = float('-inf')
    min_num = float('inf')
    sum_negatives = 0

    for num in sequence:
        if num > max_num:
            max_num = num
        if num < min_num:
            min_num = num
        if num < 0:
            sum_negatives += num

    product_max_min = max_num * min_num
    return product_max_min, sum_negatives

# Пример ввода последовательности из 15 целых чисел:
sequence = [10, 5, -3, 8, -7, 4, 2, -9, 6, 1, -2, 0, 3, -1, 7]

product, sum_negatives = find_product_and_sum(sequence)
print("Произведение максимального и минимального чисел:", product)
print("Сумма отрицательных чисел:", sum_negatives)

Пожалуйста, замените пример ввода sequence на свою последовательность из 15 целых чисел для получения результата для конкретной последовательности.