В какой строчке допущена ошибка в программе, написанной на языке 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.

Question

Ева Романова

Информатика

19 ноября, 03:47

В какой строчке допущена ошибка в программе, написанной на языке 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.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Лерд · Answer 1

В данной программе допущена ошибка в строке №8. При выполнении этой программы в строке №10 результат всегда будет равен нулю. Соответственно, результат строки №11 будет выводиться на экран в следующем виде: "Произведение элементов массива=0". Чтобы результат был верным надо строку №8 переписать следующим образом: p:=a[1]. Вследствие этого изменения на экране будет отображаться правильный ответ, выведенный из строки №11.