Помогите составить программу (с обьяснением). Паскаль. Массивы

program z1; uses crt; var n,i,min,k: integer; a: array[1… 100] of integer; begin randomize; writeln (' âåäèòå êîë-âî ýëåìåíòîâ â ìàññèâå'); readln (n); for i: =1 to n do begin a[i]: =random (100); write (a[i]: 4); end; writeln; min: =a[1]; for i: =1 to n do begin if i mod 2 <> 0 then begin if a[i]