Вопрос от посетителя:
Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.
Илюха отвечает:
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 a if a>max then max:=a; end; s:=(min+max)/2; writeln(s); end.