Составьте программу которая заполняет массив а [1..20] случайными целыми числами в диапазоне от 1 до 10 и находит среднее арифметическое элементов с четными значениями и нечётными индексами

var a: array[1..20] of integer; i,arf,k: integer; begink: =0; for i: =1 to 20 dobegina[i]: =random(10); if (a[i]/2=a[i] div 2) or (i/2< > i div 2) thenbegin arf: =arf+a[i]; inc(k); end; end; arf: =round(arf/k); for i: =1 to 20 do writeln('a[',i,']= ',a[i]); writeln('srendee arirfm. chentix chisel u nechetnix indexov = ',arf); readln; end.

Насекомые сегментированными телами, поддерживающимися экзоскелетом - твердым внешним покрытием, состоящим главным образом из хитина. сегменты тела объединены в три области: голова, грудная клетка, и живот. на голове находится пара сенсорных антенн, пара сложных глаз, один - три простых глаза и три набора по-разному измененных придатков, которые формируют ротовой аппарат. на грудной клетке находится шесть ног (по одной паре на сегмент) и два или четыре крыла (если таковые характерны для разновидности) . живот (составленный из одиннадцати сегментов, некоторые из которых могут быть уменьшены или сросшиеся) заключает в себе большинство пищеварительных, дыхательных, выделительных и репродуктивных внутренних органов.вот так сойдет 

Const n=10; var a: array[1..n] of integer; i,s: integer; begin randomize; writeln('первоначальное количество конфет: '); for i: =1 to n do   begin   a[i]: =random(20)+10;   write(a[i]: 4);   end; writeln; writeln('с добавленными конфетами: '); s: =0; for i: =1 to n do   begin   a[i]: =a[i]+100;   write(a[i]: 4);   s: =s+a[i];   end; writeln; writeln('всего конфет: ',s); end. пример: первоначальное количество конфет:   26   10   18   23   24   22   11   15   20   12 с добавленными конфетами:   126 110 118 123 124 122 111 115 120 112 всего конфет: 1181