елементы одномерного масива

[vitik]

помогите розобраться .я поменял в проге
Код Pascal1
program elments;
const n=10;

var

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

i,kol,p,m:integer;

begin

kol:=0; m:=0;

for i:=1 to n do

begin

read(a[i]);

if a[i]>0 then kol:=kol+1;

if a[i]=0 then p:=i;

end;

for i:=p to n do

m:=m+a[i];



writeln('количество позитивных елементов',kol);

writeln('результат умножения елементов масива, после последнего елемента, ровного нолю. =',m);
end.


m:=m+a[i] на m:=m*a[i] и у меня результат умножения у все случая =0

[veniside]

for i:=p+1 to n do

[vitik]

огромное спасиба но всеравно при m:=m*a[i] получаеться 0

[Niro]

помогите розобраться .я поменял в проге

Что поменяли? В какой? Я конечно могу предположить что вы где-то уже создавали подобную тему, но раз создаёте новую, уточняйте

при m:=m*a[i] получаеться 0

логично, если посмотреть на сторочку

kol:=0; m:=0;

или предположить, что какой-то элемент массива равен нулю

[veniside]

Сообщение от vitik

при m:=m*a[i] получаеться 0

логично, учитывая

m:=0;

поменяй на

m:=1;

[vitik]

всеравно получаеться 0

[veniside]

добавь

p := 0;

в самом начале, и показывай весь новый код.