Задание: написать программу, вычисляющую произведение элементов одномерного массива Z(N).
Рекомендация: посмотрите алгоритм нахождения суммы и обратите внимание на то, что произведение P:=P*Z[k] перед циклическим процессом нужно задать как 1, т.е. P:=1;
Ввод и вывод массива выполните через текстовый файл.
VarZ:array[1..100] as integer;P:integer;i,n:integer;beginReset(input,input.txt);Rewrite(output,output.tx);readln(n);For i:=1 to n doReadln(Z[i]);P:=1;For i:=1 to n doP:=p*z[i];Writeln(p);Close(input);Close(output);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
