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

Program n1;Uses CRT;Const n=40;Var a:array[1..n] of integer; i,s,k: integer;beginClrScr;For i:=1 to n do begin a[i]:=random(21); write(a[i]:3); if a[i] mod 2=1 then begin k:=k+1; s:=s+a[i]; end; end;Writeln('Summa =',s,' Kolvo =',k,' Srednee arifm = ',s/k:4:4);readlnend.