Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
29 марта 2023 19:40
412
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
Остались вопросы?
Еще вопросы по категории Информатика
Задача 2: Потерявшееся число Тимофей выбрал натуральное число n, делящееся на 6, и записал на трёх разных карточках само число n, его половину и его т...
1. Сколько бит содержится в 173,25 килобайтах ? 2. Сколько Сколько бит содержится в 16,75 байтах? 3. терабайтов содержится в 6363 гигабайтах ? 4. Ск...
Сколько слов будет найдено (выделено, указано) в процессе автоматического поиска в документе MS WORD в тексте: «Далеко за отмелью, в ельнике, раздал...
6. Дано натуральное трёхзначное число. Напишите программу, которая определяет: На языке Python ...
Хелпаните с ошибкой Traceback (most recent call last): File "main.py", line 4, in from telebot import types File "/usr/local/lib/python3.4/dist-pa...