Вычислить произведение всех элементов одномерного массива В, в котором 20 элементов.

Question

Информатика

Федюка

23 декабря, 21:01

Вычислить произведение всех элементов одномерного массива В, в котором 20 элементов.

+4

Ответы (2)

Знаете ответ на вопрос?

Витуля · Answer 1

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.

Дена · Answer 2

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.