Составьте программу для вычисления среднего арифметического элементов массива.

• var a: array
  \[1\.\.max\]
  of integer;
• m, s, sr, i: integer;
• begin
• m := 100;
  s := 0;
• for i := 1 to m do read\(a⟨1⟩\);
• for i := 1 to m do s := s + a
  \[i\]
  ;
• sr := s / m;
• writeln\('ответ: ', sum\);
• end.