Помогите плз с Паскалем.... 1)Посчитать ссреднее арифметическое ...

Vasy

1) 

Const n=10;Var a:array [1..n] of integer; i,max:integer;begin Write('Введите массив: '); For i:=1 to n do Read(a[i]); Readln; max:=a[1]; For i:=1 to n do If a[i]>max Then max:=a[i]; Writeln('Максимальный элемент - ',max); Readln;end.2)  хз....3) 

const n = 100;var arr: array[1..n] of integer; i, m, qty: byte;begin write('Количество элементов массива: '); readln(m); write('Элементы массива через пробел: '); for i:=1 to m do read(arr[i]); readln; qty := 0; i := 2; while i < m do if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin qty := qty + 1; i := i + 2 end else i := i + 1; writeln('Кол-во элементов, которые больше соседей: ', qty);readln;end.Вроде как-то так