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

Program Pr1;uses crt;var mas:array[1..40] of integer; i:integer; v:real;Beginclrscr;v:=0;randomize;for i:=1 to 40 do mas[i]:=random(21);for i:=1 to 40 do v:=v+mas[i];v:=v/40;writeln(v);end.