Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
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. |
Похожие записи: