Вычислите среднее арифметическое наибольшего и наименьшего из n чисел. Язык программирования Паскаль.
var
s,a,n,i,min,max:integer;
begin
min:=32767;
max:=-32768;
readln(n);
for i:=1 to n do
readln(a);
if a<min then min:=a;
if a>max then max:=a;
end;
s:=(min+max)/2;
writeln(s);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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<min then min:=a;
if a>max then max:=a;
end;
s:=(min+max)/2;
writeln(s);
end.