Баг Опции

[fr33m]

Ребят, помогите пожалуйста с прогой, не знаю в чем проблема, вроде написано всё верно, а вылетает. Програмка маленькая

Найти номер и значение минимального положительного элемента массива. Рассматривать элементы массива, имеющие четные значения.

Uses Crt ;
Var
A: Array[1..20] of Integer;
I,min,n: Integer;
Begin
ClrScr;
Writeln('Лабораторная работа 1');
Writeln('Найти номер и значение минимального положительного элемента массива.');
Writeln('Рассматривать элементы массива, имеющие четные значения.');
Writeln('Количество элементов массива - целое число <=20');
Writeln('Введите n');
Readln (N);
If (N>=1) and ( N<=20) then
   begin
   Writeln('Значения элементов массива - целые числа');
   For I := 1 to N do
   Begin
   Write('A[',I,']=');
   Readln(A[I]);
   End;
   Writeln('В исходном массиве ',  N, ' элементов');
   Writeln('Исходный массив');
   For I:=1 to N do
   Write(A[I]:4);
   Writeln;
   i:=2;
   min:=a[2];
   while a[i]<=n do
   If (a[i]<=min) and (a[i]>0) Then
      begin
      A[i]:=min;
      i:=i+2;
      End;
   writeln('Минимальный положительный элемент равен ',min);
   readln;
end
Else
Writeln('Ошибка ! Число элементов массива от 1 до 20');
readln;
End.

while a[i]<=n do
   If (a[i]<=min) and (a[i]>0) Then
      begin
      A[i]:=min;
      i:=i+2;
      End; 

в этом месте что-то происходит не так

[Bokul]

Malice, опять косяк, смотри мою прогу..

[fr33m]

Malice, опять косяк, смотри мою прогу..

спасибо Bokul . твоя прога работает ! только вот вопрос .допутим второй элемент массива отрицательное число . в цикле этого не проверяется . там проверяется только >0 . и тогда этот второй элемент засчитается за минимальный , потому что будет меньше всех, даже меньше положительных значений. то есть если есть 4 элемента массива 1 -9 3 6 , то -9 будет минимальным положительным , хотя нужно 6 . вот не знаю ,как это на паскале написать
p.s. почему я репу не могу никому дать ? )

Сообщение отредактировано: fr33m - 7.01.2007 23:39