Question

Дан массив n Найти min и его индексыПроизведение положительныхИ сред.ариф. отрицательных элементовНа паскалеПж помогите

Answer 1

var

 n, min_val, i, sum_neg, cnt_neg: Integer;

 a: array[1..1000] of Integer;

 mult: Int64;

 

begin

 Write('введите кол-во элементов: ');

 Read(n);

 

 for i := 1 to n do

   Read(a[i]);

 

 min_val := a[1];

 for i := 2 to n do

   if a[i] < min_val then

     min_val := a[i];

   

 WriteLn('Минимум равен: ', min_val);

 Write('Индексы минимальных элментов: ');

 for i := 1 to n do

   if a[i] = min_val then

     Write(i, ' ');

 WriteLn;

   

 mult := 1;

 for i := 1 to n do

   if a[i] > 0 then

     mult := mult * a[i];

 WriteLn('Произведение положительных элементов: ', mult);

 

 sum_neg := 0;

 cnt_neg := 0;

 for i := 1 to n do

   if a[i] < 0 then begin

     Inc(cnt_neg);

     sum_neg := sum_neg + a[i]

   end;

 WriteLn('Среднее арифметическое отрицательных элементов: ', sum_neg / cnt_neg);

end.  

Answer 2

Конечно, я могу помочь с этой задачей.

Для начала найдем минимальный элемент и его индекс в массиве. Для этого пройдемся по массиву и будем сравнивать каждый элемент с текущим минимальным. Если найдем элемент, который меньше текущего минимального, то обновим минимальный элемент и его индекс.

Далее найдем произведение всех положительных элементов массива. Для этого также пройдемся по массиву и будем умножать каждый положительный элемент на текущее значение произведения.

Теперь найдем среднее арифметическое отрицательных элементов. Для этого сначала найдем сумму всех отрицательных элементов, затем поделим эту сумму на количество отрицательных элементов.

Вот пример кода на языке Pascal, который реализует эти шаги:

program MinMaxProductAverage;
var
  arr: array[1..10] of integer;
  i, min, minIndex, product, negSum, negCount: integer;
  negAverage: real;
begin
  min := arr[1];
  minIndex := 1;
  product := 1;
  negSum := 0;
  negCount := 0;
  
  // инициализация массива arr
  
  for i := 1 to 10 do
  begin
    if arr[i] < min then
    begin
      min := arr[i];
      minIndex := i;
    end;
    
    if arr[i] > 0 then
    begin
      product := product * arr[i];
    end
    else if arr[i] < 0 then
    begin
      negSum := negSum + arr[i];
      negCount := negCount + 1;
    end;
  end;
  
  if negCount > 0 then
  begin
    negAverage := negSum / negCount;
  end
  else
  begin
    negAverage := 0;
  end;
  
  writeln('Минимальный элемент: ', min);
  writeln('Индекс минимального элемента: ', minIndex);
  writeln('Произведение положительных элементов: ', product);
  writeln('Среднее арифметическое отрицательных элементов: ', negAverage);
end.

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