Question

найдите среднее арифмитическое минимального и максимального элемента из 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 x<min then
min:=x;

if x>max then
max:=x;
sr:=(max+min)/2;
Writeln(max);
Writeln(min);
Writeln(Sr);
Readln;
end.

Answer 1

Если ты в 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.

Answer 2

Хотя нет, без массива бред получается...

Answer 3

Обновил, теперь не бред) Работает безмассива)