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

Question

Информатика

Анатольич

13 мая, 04:52

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

+3

Ответы (1)

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

Самуил · Answer 1

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.