Сформировать одномерный массив из 6 целых чисел, элементы которого вводятся с клавиатуры.подсчитать среднее арифметическое элементов с нечетными номерами.

Var a: array[1..6] of integer; i,k,s: integer; begin for i: =1 to 6 do read(a[i]); k: =0; s: =0; for i: =1 to 6 do if i mod 2 = 1 then begin k: =k+1; s: =s+a[i]; end; writeln('среднее арифметическое элементов массива с нечетными номерами = ',s/k); end.

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var a: =readarrreal(12).select(x-> real(;   writeln('тип массива ',a.gettype);   writeln('максимальное нечетное: ',a.where(x-> trunc(x).isodd).max) end. пример 13 10 22 31 22 6 18 5 26 3 8 24 тип массива system.double[] максимальное нечетное: 31 // pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var c: =new char[10];   for var i: =0 to 9 do c[i]: =readlnchar;   var c1: =c[9];   var c2: =c[8];   c: =c.where(a-> (a< > c1) and (a< > ; c.println(',') end. пример а п е л ь с и н е ь а,п,л,с,и,н

1. современное решение // pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var a: =106.step(6).take(15).toarray; a.println end. результат 106 112 118 124 130 136 142 148 154 160 166 172 178 184 190 2. древнее школьное решение "в лоб" var   a: array[1..15] of integer;   i,k: integer; begin   k: =106;   for i: =1 to 15 do begin       a[i]: =k;       k: =k+6;       write(a[i],' ')       end;   writeln end. 3. усовершенствованное древнее школьное решение. последовательность - арифметическая прогрессия с первым членом a₁=106 и разностью d=6. тогда var   a: array[1..15] of integer;   i: integer; begin   for i: =1 to 15 do begin       a[i]: =100+6*i;       write(a[i],' ')       end;   writeln end.