Дан массив состоящий из 20 целых чисел. требуется найти среднее арифметическое его нечетных элементов?

Uses crt; const n=20; var i,average,count: integer; a: array[1..n] of integer; begin randomize; writeln('введите элементы массива: '); for i: =1 to n do begin read(a[i]); if i mod 2< > 0 then begin average: =average+a[i]; inc(count); end; end; writeln(average div count); end.

Uses crt; var n,d,z,x,c,k,a,b: integer; begin       write('n: ');   readln(n);       write('d: ');   readln(d);       a: =round(power(10,n-1));       b: =round(power(10,n)-1);       for x: =a to b do       begin           z: =x;           k: =0;           while z> 0 do           begin                 c: =z mod 10;                 if c=d then inc(k);                 z: =z div 10;           end;           if   k=0 then writeln(x);       end; end.

  vb. dim n as integer      n = inputbox("введите число: ")   msgbox("в числе  " &   len(cstr(n)) & " цифр.")pascal. program n; var  i, s, n : longint; begin  writeln('введите число'); readln(i);   n: =1;         while i > 10 do              begin                    i: =i div 10;                     inc(n);             end; // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535write('"в числе цифр  "   = ',n); readln; end. ? жми лучший!