Помогите с паскалем
помогите написать программки, или хотя-бы объясните как это осуществить:
1.вычислить среднее арифметическое всех элементов массива Е. Вычесть из каждого элемента массива полученное число и записать полученный массив
2.Переписать положительные элементы массива Х и У в массив Z. Запись в массив Z выполнить с помощью подпрограммы.
3.Дана матрица Е(n,m) Вычислить позицию первого отрицательного элемента.
1.вычислить среднее арифметическое всех элементов массива Е. Вычесть из каждого элемента массива полученное число и записать полученный массив
begin
Readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
s:=s+a;
end;
s:=s/n;
for i:=1 to n do begin a=a-s; write(a:4);
end;
end.
1) заводим две переменных (а и b например) , нулим их. далее в цикле в а суммируем все элементы массива, из переменной b делаем счетчик, те b=b+1. в некоторую переменную записываем среднее арифметическое (например c=a/b).
делаем второй цикл, в нем из каждого элемента массива вычитаем среднее арифметическое (нпример A(i)=A(i)-c)