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

8 строчка: p должно быть приравнено к 1;