правильно ли я сделал алгоритм

[vitik]

правильно ли я сделал алгоритм на прогу
Var
i,kol,n,ind:integer;
pr:real;
a:array[1..20] of integer;
begin
randomize;
readln(n);
kol:=0;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if a[i]>0 then
inc(kol);
end;
writeln;
writeln('Kol:=',kol);
pr:=1;
ind:=0;
for i:=n downto 1 do
if a[i]<>0 then
pr:=pr*a[i]
else
begin
ind:=i;
break;
end;
if (ind<>0) and (ind<>n) then
write('Pr:=',pr)
else
write('Нет нулей.Или он последний');

end.

[Shift_sk]

мне кажеться не совсем правильно)хотя я в блок схемах не селен!

[Shift_sk]

мне кажеться у тебя код задачи не правильно написан даже!
какое условие у задачи?

[vitik]

в одномерном масиве который складаиться с n елементов . 1 найти количество позитивных елементов.
2 результат умножения елементов масива, размещонных после последнего елемента, ровного нолю