Построить массив n-размера и умножить все его числа . Турбо Паскаль Программирование

Question

Ayax · Accepted Answer

program q171185668;
var
 i, n, p: integer;
 a: array [0..99] of integer;
begin
 Randomize;
 Write('N = ');
 ReadLn(n);
 p := 1;
 for i := 0 to n - 1 do
 begin
 a[i] := Random(10) + 1;
 Write(a[i], ' ');
 p := p * a[i];
 end;
 WriteLn;
 Writeln('Произведение: ', p);
 ReadLn;
end.

Оксана · Answer

"н-размер" и "размера н" разные вещи - первый вариант это многомерный массив, с количеством измерений Н.
А у вас вероятно один из элементов равен нулю и все, результат равен 0.