Задание: написать программу, вычисляющую произведение элементов одномерного массива Z (N).

Рекомендация: посмотрите алгоритм нахождения суммы и обратите внимание на то, что произведение P:=P*Z[k] перед циклическим процессом нужно задать как 1, т. е. P:=1;

Ввод и вывод массива выполните через текстовый файл.

Question

Информатика

Ольда

7 июля, 15:56

Задание: написать программу, вычисляющую произведение элементов одномерного массива Z (N).

Рекомендация: посмотрите алгоритм нахождения суммы и обратите внимание на то, что произведение P:=P*Z[k] перед циклическим процессом нужно задать как 1, т. е. P:=1;

Ввод и вывод массива выполните через текстовый файл.

+4

Ответы (1)

Знаете ответ?

Аврам · Answer 1

Var Z:array[1 ... 100] as integer; P:integer; i, n:integer; begin Reset (input,'input. txt') ; Rewrite (output,'output. tx) ; readln (n) ; For i:=1 to n do Readln (Z[i]) ; P:=1; For i:=1 to n do P:=p*z[i]; Writeln (p) ; Close (input) ; Close (output) ; end.