Что не так с этой программой?

program pr;

var i, p: integer;

a: array [1 ... 5] of integer;

begin

for i:=1 to 5 do read (a[i]) ;

begin

p:=0;

for i: = 1 to 5 do

p:=p*a[i];

begin

write (p,' ') ;

end;

end;

end.

Заданием было найти сумму пяти элементов массива

Question

Информатика

Старемилиан

9 января, 08:10

Что не так с этой программой?

program pr;

var i, p: integer;

a: array [1 ... 5] of integer;

begin

for i:=1 to 5 do read (a[i]) ;

begin

p:=0;

for i: = 1 to 5 do

p:=p*a[i];

begin

write (p,' ') ;

end;

end;

end.

Заданием было найти сумму пяти элементов массива

+2

Ответы (1)

Знаете ответ на вопрос?

Старемилиан · Answer 1

Program pr; var i, p: integer; a: array [1 ... 5] of integer; beginfor i:=1 to 5 do read (a[i]) ; p:=0; for i: = 1 to 5 do p:=p+a[i]; / / в это строчке была ошибка. ты постоянно умножала на нольwrite (p) ; end.