Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы: a) массив состоял из 15 элементов вещественного типа; b) значения элементов массива должны меняться в интервале от 0 до 5; c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма. Program massiv; const n=10; Var a: array [1..n] of integer; s,i integer; Begin writeln (‘ исходный массив.‘); For i:= 1 to n do begin a [ i] := random (10); write (‘a[‘i'] =', a[i], ''); end; s:=0; For i:= 1 to n do s:= s+a[i]; Writeln (‘ сумма всех элементов массива S=‘, s); end. 2. Вводится одномерный массив размерностью 100 для обработки данной программой. Что делает программа? Program pr; Var х: array [1..100] of integer; i, s: integer; begin s: =0; for i:=l to 100 do begin readln (x [i]) ; if i mod 2=0 then s:=s+x[i] ; end; writeln (s) ; end. Данная программа определяет: 1.сумму значений элементов массива с четными индексами; 2.сумму значений отрицательных элементов; 3.количество элементов, значение которых четное число; 4.среднее арифметическое значений элементов массива с четными индексами.