Вычислить произведение элементов массива от 1 до 10

Question

Информатика

Никбахт

20 января, 00:39

Вычислить произведение элементов массива от 1 до 10

+3

Ответы (1)

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

Аймилев · Answer 1

var a, b, i, z, x:integer;

q:array [1 ... 20] of integer;

begin

z:=1;

for i:=1 to 20 do

begin

q[i]:=random (18) + 2;

write (q[i],' ') ;

if (i<11) then z:=z*q[i];

end;

writeln;

write ('Произведение от 1 до 10 = ', z) ;

end.