Question

1. Сформировать массив, состоящий из N вещественных элементов, лежащих в промежутке [-20,30] ; Вычислить
2. номер минимального по модулю элемента
3. количество чётных элементов
4. произведение элементов массива, расположенных между первым и вторым нулевыми элементами.

Answer 1

Программа:

Pascal:

var

 arr: array of integer;

 N, i, j, pr, min, n1, k: integer;

begin

 min := MAXINT;  pr := 1;

 write('N = ');  readln(N);

 setLength(arr, N);

 

 for i := 0 to N - 1 do begin

   arr[i] := random(-20, 30);

   if abs(arr[i]) < min then min := abs(arr[i]);

   if arr[i] mod 2 = 0 then inc(j);

 end;

 

 for i := 0 to N - 1 do

   if arr[i] = 0 then begin

     n1 := i;  break;

   end;

 writeln(n1);

 

 for i := n1 + 1 to N - 1 do begin

   if arr[i] = 0 then inc(k);

   if k = 0 then pr := pr * arr[i]

   else if k = 1 then break;

 end;

 writeln('Массив: ', arr);

 writeln('Минимальный элемент по модулю: ', min);

 writeln('Количество чётных элементов: ', j);

 

 if k = 0 then writeln('Не было сгенерировано нулей/сгенерирован 1 ноль')

 else writeln('Произведение: ', pr);

end.