Дан массиа А, состоящий из 12 чисел, массив заполнить случайными числами в диапазоне от 0 до 100. Требуется подсчитать

var a: array[1..12] of single; S: single; M: single; i: integer; k: integer;begin randomize; for i:= 1 to 12 do a[i]:= random * 100; S:= 0; k:= 0; for i:= 1 to 12 do begin S:= S + a[i]; k:= k+1; end; M:= S / k; for i:= 1 to 12 do begin write( a[i], \', \' ); end; writeln; writeln( \'Среднее = \', M );end.Объяснение.Массив \"а[]\" и переменные \"S\" и \"M\" вещественного типа \"single\". В зависимости от компилятора, можно изменить на тип \"real\".Вызов процедуры \"randomize\" обеспечивает, чтобы функция \"random\" выдавала случайное число.Функция \"random\" без параметров возвращает случайное вещественное число от \"0\" до \"1\". Умножив его на \"100\", получаем случайное число от 0 до 100.В переменной \"S\" накапливается сумма элементов массива, а в переменной \"k\" их количество. Переменная введена в учебных целях, и в данной программе \"k\" всегда равна \"12\", в принципе можно от нее отказаться.Среднее арифметическое сохраняется в переменной \"М\".