Вопрос по информатике:
Вычислить произведение всех элементов одномерного массива В, в котором 20 элементов.
- 15.12.2017 11:01
- Информатика
- remove_red_eye 19236
- thumb_up 26
Ответы и объяснения 2
Program pas;
var b:array[1..20] of integer;
i, k: integer;
begin
k:=1;
for i:=1 to 20 do
readln(b[i]);
for i:=1 to 20 do
k:=k*b[i];
writeln(k);
end.
- 16.12.2017 00:50
- thumb_up 3
Const n=20;
var B:array[1..n] of integer;
i,s:integer;
Begin
Randomize;
For i:=1 to n do
Begin
b[i]:=Random(10);
Write(b[i],' ');
end;
s:=1;
For i:=1 to n do
Begin
s:=s*b[i];
end;
writeln;
Writeln('Произведение элементов: ',s);
end.
- 17.12.2017 05:24
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.