Изменить программу таким образом, чтобы: - массив состоял из 15 элементов вещественного типа;
Дана программа
program massiv;
uses crt;
const n=10;
var
s, i: integer;
a: array [1..n] of integer;
begin
clrscr;
randomize;
writeln ('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(10);
writeln ('a[',i,']=',a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln ('Сумма всех элементов массива S=',s);
readln;
end.
Изменить программу таким образом, чтобы:
- массив состоял из 15 элементов вещественного типа;
- значения элементов массива должны меняться в интервале от 0 до 5;
в результате выполнения программы должно быть найдено произведение всех
элементов массива, а не их сумма.
Вот измененная версия программы, которая соответствует вашим требованиям:
```pascal
program massiv;
uses crt;
const n=15;
var
p, i: integer;
a: array [1..n] of real;
begin
clrscr;
randomize;
writeln ('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random*5;
writeln ('a[',i,']=',a[i]:0:2);
end;
p:=1;
for i:=1 to n do
p:=p*a[i];
writeln ('Произведение всех элементов массива P=',p:0:2);
readln;
end.
```
В этой версии программы массив `a` состоит из 15 элементов вещественного типа (`real`), значения элементов массива меняются в интервале от 0 до 5 (используется `random*5`), и в результате выполнения программы находится произведение всех элементов массива (используется переменная `p` и операция умножения `p:=p*a[i]`), а не их сумма.
Стукач поганый