Дан массив C (1 ... 5) натуральных чисел. найти произведение элементов массива

Question

Информатика

Петюся

30 апреля, 04:50

Дан массив C (1 ... 5) натуральных чисел. найти произведение элементов массива

+3

Ответы (1)

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

Валентиныч · Answer 1

Var C:array [ 1 ... 5]of integer;

i, S:integer;

begin

randomize;

for i:=1 to 5 do begin C[i]:=random (100) ;

Wruti (C[i],' ') ; end;

for i:=1 to 5 do S:=S+C[i];

Writeln (' произведение элементов массива=', S) ;

end.