Задание: написать программу, вычисляющую произведение элементов одномерного массива Z (N). Рекомендация: посмотрите алгоритм нахождения суммы и обратите внимание на то, что произведение P:=P*Z[k] перед циклическим процессом нужно задать как 1, т. е. P:=1; Ввод и вывод массива выполните через текстовый файл.

Question

Светлана Одинцова

Информатика

21 марта, 03:36

Задание: написать программу, вычисляющую произведение элементов одномерного массива Z (N). Рекомендация: посмотрите алгоритм нахождения суммы и обратите внимание на то, что произведение P:=P*Z[k] перед циклическим процессом нужно задать как 1, т. е. P:=1; Ввод и вывод массива выполните через текстовый файл.

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Макар Виноградов · Answer 1

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

inp, outp: text;

n, z, i: integer;

begin

z : = 1;

assign (inp, 'inp. txt');

assign (outp, 'outp. txt');

reset (inp);

reset (outp);

readln (n);

for i : = 1 to n do read (t, a[i]);

for i: = 1 to n do z : = z * a[i];

writeln (outp, z);

close (inp);

close (outp);

end.