const n=40;var i,s1,s2,k:integer; s:real; a:array[1..n] of integer;begin Randomize; Write('Сгенерированный массив: '); s:=0; s1:=0; s2:=0; k:=0; for i:=1 to n do begin a[i]:=Random(21); Write(a[i],' '); if a[i] mod 2<>0 then begin s:=s+a[i]; Inc(k) end; if a[i]<=10 then s1:=s1+a[i]; if a[i] mod 3=0 then s2:=s2+a[i] end; Writeln; Writeln('Ср.арифм.нечетных = ',s/k); Writeln('Сумма не больших 10 = ',s1); Writeln('Сумма кратных 3 = ',s2)end.Пример выполнения программыСгенерированный массив: 14 19 1 5 0 2 1 3 2 15 5 3 18 0 4 12 5 0 9 2 14 7 18 13 0 16 9 15 19 14 13 13 16 16 1 16 14 2 1 1 Ср.арифм.нечетных = 7.9Сумма не больших 10 = 63Сумма кратных 3 = 102