Var C:array [ 1..5] of integer;
i,S: integer;
begin
randomize;
for i:=1 to 5 do begin C[i]:=random(100);
Write(C[i],' ');end;
for i:=1 to 5 do S:=S+C[i];
Writeln('произведение элементов массива=', S)',
end.
Var C:array [ 1..5] of integer;
i,S: integer;
begin
randomize;
for i:=1 to 5 do begin C[i]:=random(100);
Write(C[i],' ');end;
for i:=1 to 5 do S:=S+C[i];
Writeln('произведение элементов массива=', S)',
end.