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

var a: array [1… 40] of integer; //Инициализируем массив из 40 целых чисел i, s, n: integer; //s — сумма нечетных чисел, n — счетчик нечетных элементовbegin s: =0; n: =0; write ('Исходный массив: '); for i: =1 to 40 do begin a[i]: =random (20); //Формируем элемент массива write (a[i], '); //Распечатываем if a[i] mod 2=1 then {если элемент нечетный, то прибавляем его значение к сумме и увеличиваем счетчик нечетных элементов на 1} begin s: =s+a[i]; n: =n+1; end; end; writeln; write ('Среднее арифметическое: ', s / n: 0:5); {Делим сумму нечетных элементов на их количество и выводим с точностью до 5 знаков после запятой}end.