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

Question

Информатика

Корнюша

11 мая, 04:47

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

+1

Ответы (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.