помогите решить задачу Опции

[zinvor]

обявить целочисленный массив если в случайно заданном массиве
встретится четное число то заменить мах если нечетоное то на мин

[amega]

о господи

var a:array [1..100] of integer;
      Min,i,max: integer;
begin
min:=0;
max:=1;
for i:=1 to 100 do a[i]:=random(100);
for i:=1 to 100 do 
 begin
  if a[i]>max then max:=a[i];
  if a[i]<min  tnen min:=a[i];
 end;
for i:=1 to 100 do 
 begin
   if a[i] mod 2 = 0 then a[i]:=max
   else a[i]:=min;
 end;
end;

[volvo]

о господи

Угу... Вот именно... Что это ты сделал, можно узнать, amega? Смотри сюда: Вот исходный массив, и массив после замены... Ничего не замечаешь странного?

  54  59  71  84  60  85  54  84  42  62  64  38  43  29  89   5  96  27  38  47
  79  81  52  47  56  39  92  83   7  33   8  64   2  36  83  95  77  14  87  87
  97  47  79  80  46  52  78  67  11  72  63  58  14  53  94  75  52  10  41  47
  26  18  77  73  45  21  56  13   1  32  61  14  61  22  61  38  94  90  68  44
  35  61  43  90  69   9   6  96  66  65  67  17  21  35  12  75  31  60  36  32


  97   0   0  97  97   0  97  97  97  97  97  97   0   0   0   0  97   0  97   0
   0   0  97   0  97   0  97   0   0   0  97  97  97  97   0   0   0  97   0   0
   0   0   0  97  97  97  97   0   0  97   0  97  97   0  97   0  97  97   0   0
  97  97   0   0   0   0  97   0   0  97   0  97   0  97   0  97  97  97  97  97
   0   0   0  97   0   0  97  97  97   0   0   0   0   0  97   0   0  97  97  97

[Unconnected]

if a[i]<min  tnen min:=a[i];

Некорректно min находится, ситуации с таким условием не должно возникнуть.