Одномерный числовой массив, состоящий из 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=arr[j];

j=j+1;

конец;

writeln (temp) ; / / выводим самое близкое значение

writeln (n) ; / / выводим среднее

end.