Дана программа нахождения суммы всех элементов массива. изменить программу таким образом,чтобы: 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.
const n=15;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (6);
write (‘a[‘i'] =', a[i], '');
end;
s:=1;
For i:= 1 to n do
s:= s*a[i];
Writeln (‘ произведение всех элементов массива S=‘, s);
end.