Задать массив из 8 элементов целого типа. Заполнить массив случайными значениями из интервала (-10; 10) и вывести массив.

program sum_prod;var s, p: integer;a: array [1..8] of integer;beginrandomize;s:= 0;p:= 1;for i: integer:=1 to 8 do begina[i]:= random(21) - 10;write(a[i] : 4);if i mod 2 = 0 then s:= s + a[i];if i mod 2 = 1 then p:= p * a[i];end;writeln();writeln(\'Сумма четных элементов: \', s);writeln(\'Произведение нечетных элементов: \', p)end.