Найдите среднее арифмитическое минимального и максимального элемента из 10 вводимых. что не так? ? program ex1; var i,max,min,x,: integer; sr: real; begin for i : = 1 to 10 do begin writeln('вв-те ',i,' число' ); readln(x); end; if xmax then max: =x; sr: =(max+min)/2; writeln(max); writeln(min); writeln(sr); readln; end.

Если ты в 10-11, то необходимо с массивом:
const n=10;
var a:array[1..n] of integer;   
     i,min,max:integer;   
     sum:real;
begin
for i:=1 to n do readln(a[i]);
min:=a[1]; 
max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
sum:=(min+max)/2;
writeln(sum);
end.


Без массива:
uses crt;
const n=10;
var  x,i,min,max:integer;
     sum:real;
begin
min:=10000;
max:=-10000;
for i:=1 to n do begin
readln(x);
if x>max then max:=x;
if x<min then min:=x;
end;
sum:=(min+max)/2;
writeln(sum);
end.