Баг Опции

[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; 

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

[fr33m]

а во втором месте исправил?
тебе же Bokul написал, как должно быть

так я не понял begin ставить после do или после if .у вас по-разному написано.в любом случае и так и так получается ,что 2ой элемент всегда считается отрицательным

Bokul тоже накосячил чуть-чуть

   while i<=n do begin
   If (a[i]<=min) and (a[i]>0) Then
      min:=i;
      i:=i+2;
      End;
writeln('Минимальный положительный элемент равен ',a[min]);
writeln('Индекс равен ',min);

да .попробовал вот так .прога проходит больше тестов , но неполностью . например ввожу n=4 . дальше ввожу элементы 1,5,2,3 . то есть четные элементы - это 5 и 3. минимальный из низ 3. а прога напишет что 5


может не надо перед циклом min:=a[2] . может в этом проблема ? непонимаю

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

[Malice]

может не надо перед циклом min:=a[2] . может в этом проблема ? непонимаю

Это потому, что я тоже накосячил
Вариант №2:

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