Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
29 марта 2023 19:40
398
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.
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
Остались вопросы?
Еще вопросы по категории Информатика
Теоретический материал Деление без остатка Чтобы выполнить деление на цело в Python, можно воспользоваться целочисленным делением. В этом случае резу...
3D графика имеет три измерения. Назовите их Высота, ширина, глубина. Высота, глубина. Высота, ширина, даль. Высота, ширина. СРОЧНО ОЧЕНЬ...
Объём сообщения, содержащего 11264 символа, равен 11 Кбайт. Определите максимальную мощность алфавита, который мог быть использован для кодирования эт...
Племя Мульти пишет письма, пользуясь 16-символьным алфавитом. Племя Пульти пользуется 32 символьным алфавитом. Вожди племен обменялись письмами. Письм...
Для чего предназначена Корзина OC Windows? ...