Задача по одномерным массивам.(найти ошибку)

[RockFeller]

Всем доброго времени суток, уважаемые форумчане прошу вашей помощи в решении задачи.
Дан массив A(N), определить количество положительных элементов, стоящих после минимального значения элемента массива.


Вот, что у меня получилось.Я никак не могу найти ошибку. Прошу вашей помощи.

Program qwe;
var i,n,ind,kol,min: integer;
a: array [1..10] of Integer;
Begin
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do
write('a[',i,']');
readln(a[i]);
min:=a[i];
ind:=1;
kol:=0;
for i:=1 to n do
if i>1 then
if a[i-1]=a[i] then
kol:=kol+1;
if a[i]<min then
begin
min:=a[i];
ind:=i;
end;
end;
if kol=(n-1) then
writeln('Все элементы массива одинаковы')
else
begin
kol:=0;
for i:=ind to n do
if a[i]>0 then kol:=kol+1;
end;
if kol=0 then writeln('Нет положительных элементов')
else writeln(kol);
end.

[Willer55]

1. У тебя в коде не заполняется массив, а N раз выполняет write('a[',i,']');
2. Из-за пункта 1 все выполняется не верно.

Задача решается в 1 цикл
Алгоритм:
мин = 0
КолВо = 0
Цикл начинается
заполняешь массив[I]
Если мин <= массив[I] Тогда
Если массив[I] > 0 Тогда
КолВо + 1
конец условия
иначе
мин = массив[I]
КолВо = 0
конец условия
конец цикла

[RockFeller]

Все равно не получилось....

[Sciv]

А чего получилось, показывай

[domovou]

Program qwe;
var i,n,kol,min: integer;
    a: array [1..100] of Integer;
Begin
writeln('Введите количество элементов массива');
readln(n);
min:=1;
for i:=1 to n do
    begin
    write('a[',i,']');
    readln(a[i]);
    if a[i]<a[min] then min:=i;
    end;
writeln('Min = ',a[min],'  ego nomer = ',min);
kol:=0;
if min=n then writeln('Min element posled')
   else
   for i:=min to n do
       if a[i]>0 then inc(kol);
if kol=0 then writeln('Нет положительных элементов')
   else writeln('Posle min - ',kol, ' pologit elementa');
readln;
end.

[WillyWonka]

Заметил небольшую неточность:
если Ваш массив статичен, зачем задавать количество элементов? Если задать значение бОльшее 100 (в Вашем примере), то программа выйдет за границы. В таком случае, лучше воспользоваться функцией setlength.

Program qwe;
var i,n,count,min: integer;
a: array of Integer;
Begin
writeln('Введите количество элементов массива');
readln(n);
count:=0;
setlength(a, n);

for i:=0 to n-1 do
begin
write('Enter a[',i+1,']: ');
readln(a[i]);
if i= 0 then
min:=a[i];
if a[i]>0 then
inc(count);
if a[i] < min then
begin
min:=a[i];
count:=0;
end;
end;
write(min, ' ', count);
end.

[RockFeller]

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

Program qwe;
var i,n,kol,min: integer;
    a: array [1..100] of Integer;
Begin
writeln('Введите количество элементов массива');
readln(n);
min:=1;
for i:=1 to n do
    begin
    write('a[',i,']');
    readln(a[i]);
    if a[i]<a[min] then min:=i;
    end;
writeln('Min = ',a[min],'  ego nomer = ',min);
kol:=0;
if min=n then writeln('Min element posled')
   else
   for i:=min to n do
       if a[i]>0 then inc(kol);
if kol=0 then writeln('Нет положительных элементов')
   else writeln('Posle min - ',kol, ' pologit elementa');
readln;
end.

Благодарю вас. Вы меня выручили.