Найдите среднее арифметическое массива А
(Паскаль)

var x:array[1..100]:real;      k,s,p:integer;begin  writeln(`количестов элементов в массиве`);  readln(n);  writeln(`введите массив`);  for k:=1 to n do     readln(x);  s:=0;  for k:=1 to n do     s:=s+x[k];  s:=s/n; writeln(s);