Паскаль найти среднее арифметическое элементов массива, элементы заданы датчиком случайных чисел. размер произвольный

Var a: array [1..10] of integer;     i, m: integer; begin       m : = 1;       for i : = 1 to 10 do       begin           a[i] : = random(20);           writeln('[', i, '] => ', a[i]);           m : = m + a[i];       end;       writeln(m / 10); end.=)

Ао условию, у тебя два шкафа, в каждом из которых 128 полок, и в этих полках 4 единицы (во всех 128), значит в обоих шкафах 8 единиц, отсюда следует: максимальное кол-во единиц при 126 полках с нулями и 2 полками с единицами (1111000v000111=1111111 и 0000000v1000000=1000000) т..е. в 3 шкафу будет 126 полок с нулями и 2 полки с 8 единицами. минимальное кол-во при 127 полками нулей и 1 полкой единиц (1111000v1111000=1111000) т.е. в 3м шкафу будет 127 полок с нулями и 1 полка с 4 единицами. значит максимум 8 единиц, а минимум 4

program pr1;

uses crt;

var  

  n: byte; // размерность массива

  i: byte; // счетчик массива

  a: array[1..30] of real; // массива чисел

  p: real; // произведение чисел

begin

  clrscr;

  write('введите размерность массива: ');

  readln(n);

  writeln('введите ',n,' элементов');

// блок ввода

  for i: =1 to n do

      readln(a[i]);

// блок вывода

  writeln('исходный массив');

  for i: =1 to n do

      write(a[i]: 6: 1,' ');

      writeln;

      readln;

// блок инициализации

  p: =1;

  for i: =1 to n do

      if(a[i]> p) then

        p: =p*a[i];    

  readln;

  writeln('p= ',p);

end.

возможно я не так понял , но вот