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

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

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

Question

Информатика

Романка

13 сентября, 22:40

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

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

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

+5

Ответы (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.