Дан массив C(1...5)натуральных чисел.найти произведение элементов массива
Answers & Comments
Burxon21
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.
Answers & Comments
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.