Question

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

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.