Найдите произведение десяти элементов массива. А (10) целых

Question

Найдите произведение десяти элементов массива. А (10) целых

Answer 1

Решение ниже
..
...........................

Comments

program HelloWorld;

var

mas : array [1..10] of integer;
i, mult : integer;

begin

mult:=1;

for i:=1 to 10 do
begin
read(mas[i]);
mult:= mult * mas[i];
end;

writeln('Произведение элементов массива - ',mult);

end.