Дан массиа А, состоящий из 12 чисел, массив заполнить случайными числами

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", в принципе можно от нее отказаться. Среднее арифметическое сохраняется в переменной "М".