Предложен правильный алгоритм, выдающий верное значение. Допускается

Решение по шагам

1. 1

   Как рассуждать

   Решение. uses crt;const n=30;type massiv=array[1..n] of integer;var a:massiv;min,max,i,sum:integer;sred1,sred2:real;Beginfor i:=1 to n dobeginwrite('a[',i,']= ');readln(a[i]);end;sum:=0;min:=a[1];max:=a[1];for i:=1 to n dobeginif a[i]<=min then min:=a[i]; if a[i]>=max then max:=a[i]; sum:=sum+a[i]; end; sred1:=(min+max)/2; sred2:=sum/n;writeln('Разность: ',sred1─sred2);End.