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.