Лучшие помощники
29 марта 2023 19:40
264

1.    Дана программа

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;

-  в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма. 

1 ответ
Посмотреть ответы
Вот измененная программа:

program massiv;
uses crt;
const n=15;
var
p, i: real;
a: array [1..n] of real;
begin
clrscr;
randomize;
writeln ('Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(6); //изменение диапазона значений элементов массива
writeln ('a[',i,']=',a[i]:2:2); //вывод элементов массива с двумя знаками после запятой
end;
p:=1; //начальное значение произведения
for i:=1 to n do
p:=p*a[i];
writeln ('Произведение всех элементов массива P=',p:2:2); //вывод произведения с двумя знаками после запятой
readln;
end.
1
·
Хороший ответ
29 марта 2023 19:42
Остались вопросы?
Найти нужный