Информатика

Аникий

1 августа, 22:20

Дана программа нахождения суммы всех элементов массива. Изменить программу таким образом, чтобы:

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.