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

Question

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

Answer 1

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.