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

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.