Одномерный числовой массив, состоящий из 10 элементов, заполнен случайными числами. определить: а) среднее арифметическое значение элементов массива б) найти номер элемента массива, наиболее близкого к среднему значению

Синтаксис паскаля не помню, но алгоритм могу потсказать
var arr:массив(от 0 до 9),temp,n:ineger;
begin
//здесь заполнения массива случайными числами
temp=0;
  пока i<9
  n=n+arr[i];
 i=i+1;
  конец;
n=n/10;    //n=среднее арифметическое чисел
  пока j<9
  if(abs(arr[j]-n)<temp)  //abs=модуль
  temp=arr[j];
   j=j+1;
  конец;
writeln(temp);  //выводим самое близкое значение
writeln(n);  //выводим среднее 

end.