Pascal. Массивы. Задача 13

Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.

Решение:

Program proisveden;

Var a: array[1..100] of integer;

      i, n, p: integer;

Begin

  Write (‘Сколько элементов? ’);  Readln (n);

  p:=1;

  For i:=1 to n do

     begin

       write (‘введите число’); readln (a[i]);

       p:=p*a[i];

     end;

     writeln(‘произведение элементов равно:  ‘,p);

End.