Предмет: Информатика,
автор: 2000ellada11
Задание: написать программу, вычисляющую произведение элементов одномерного массива Z(N).
Рекомендация: посмотрите алгоритм нахождения суммы и обратите внимание на то, что произведение P:=P*Z[k] перед циклическим процессом нужно задать как 1, т.е. P:=1;
Ввод и вывод массива выполните через текстовый файл.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Русский язык,
автор: kazakovaj
Предмет: Химия,
автор: Karina16060
Предмет: Русский язык,
автор: belyayev20071
Предмет: Математика,
автор: Аноним