найдите среднее арифмитическое минимального и максимального элемента из 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.

Question

Информатика

Эрнст

11 октября, 08:10

найдите среднее арифмитическое минимального и максимального элемента из 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.

+2

Ответы (1)

Знаете ответ?

Венюся · 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]
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
end;

sum: = (min+max) / 2;

writeln (sum) ;

end.