Задайте массив из 10 элементов с помощью датчика случайных чисел . Найдите разность наибольшего элемента и среднего арифметического элементов этого массива. Выведите на экран исходный массив и полученную разность .

Program pr; uses crt; Var a:array[1..10] of integer;     i,max:integer;     s:real; Begin for i:=1 to 10 do Begin a[i]:=random(100); Write(a[i],';'); end; Writeln;  max:=abs(a[1]-a[2]); for i:=1 to 9 do     if abs(a[i]-a[i+1])>max then max:=abs(a[i]-a[i+1]);     s:=0; for i:=1 to 10 do s:=s+a[i]; s:=s/10; Writeln('max=',max); Writeln('среднее арифметическое=',s); readln; end.