С помощью оператора цикла со счетчиком найти среднее арифметическое…

Pascalconst nmax=100; var a: array[1… nmax] of integer; n,i,s,k: integer; begin randomize; s: =0; k: =0; write ('Сколько элементов в массиве? '); readln (n); writeln ('Массив: '); for i: =1 to n do begin a[i]: =random (99)+1; write (a[i],'); if (i mod 2=0) and (a[i] mod 2<>0) then begin s: =s+a[i]; inc (k); end; end; writeln; if k=0 then writeln ('В массиве нет элементов, удовлетворяющих условию.') else writeln ('Искомое среднее=',s/k: 0:2); readln; end.