Задайте массив из 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.