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

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

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

Question

Информатика

Мелитика

13 мая, 00:41

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

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

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

+1

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