Question

Что не так с этой программой ? 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. Заданием было найти сумму пяти элементов массива

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.