Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите…

Program pr; uses crt; Var a: array[1… 10] of integer; i,max: integer; s: real; Beginfor 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.