Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.

Question

Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var s,a,n,i,min,max:integer; begin min:=32767; max:=-32768; readln(n); for i:=1 to n do begin readln(a); if amax then max:=a; end; s:=(min+max)/2; writeln(s); end.