Question

В какой строчке допущена ошибка в программе, написанной на языке PascalABC? Программа должна высчитывать произведение элементов целочисленного массива.
1) program summa;
2) var a: Array [1..10] of integer;
3) i, p: integer;
4) begin
5) writeln('Введите 10 чисел');
6) for i:=1 to 10 do
7) readln (a[i]);
8) p:= 0;
9) for i:=1 to 10 do
10) p:=p * a[i];
11) writeln(‘Произведение элементов массива=',p);
12) end.

Answer 1

Тут две ошибки. Первая - синтаксическая, в строке 11) первый апостроф (после открывающей скобки) неверный, это обратный апостроф, а не прямой.
Вторая ошибка алгоритмическая, в операторе 8 нужно присвоить переменной не ноль, а единицу. Ноль мы присваиваем для вычисления сумм, а для произведений надо присваивать единицу.