В этой задаче нужно посчитать сумму всех чисел. Чтобы не проверять делимость суммы на количество чисел и не работать с вещественными числами (это неудобно из-за возникающей погрешности при делении), можно сравнивать эту сумму с каждым из чисел, домноженным на их количество.
var
n, i, sum: integer;
a: array[1..100] of integer;
begin
assign(input, 'input.txt');
reset(input);
assign(output, 'output.txt');
rewrite(output);
readln(n);
for i:=1 to n do begin
read(a[i]);
sum:=sum + a[i];
end;
for i:=1 to n do
if a[i] * n = sum then begin
writeln(a[i]);
halt;
end;
writeln('No');
end.
Птицы открытых пространств много времени проводят на земле, разыскивая корм среди растений. У них сильные ноги и длинная шея, позволяющая заметить, врага на большом расстоянии. Водоплавающие птицы хорошо плавают, многие ныряют, У них уплощённое в спинно-брюшном направлении тело, есть перепонки на лапах, а ноги сдвинуты далеко назад. Птицы берегов и болот имеют длинные тонкие ноги, облегчающие передвижение по мелководью, длинную шею и длинный клюв. Морские птицы — чайки, кайры, тупики, гагарки имеют сходный внешний вид: компактное тело, короткий хвост, узкие длинные крылья, перепонки между пальцами
Птицы открытых пространств много времени проводят на земле, разыскивая корм среди растений. У них сильные ноги и длинная шея, позволяющая заметить, врага на большом расстоянии. Водоплавающие птицы хорошо плавают, многие ныряют, У них уплощённое в спинно-брюшном направлении тело, есть перепонки на лапах, а ноги сдвинуты далеко назад. Птицы берегов и болот имеют длинные тонкие ноги, облегчающие передвижение по мелководью, длинную шею и длинный клюв. Морские птицы — чайки, кайры, тупики, гагарки имеют сходный внешний вид: компактное тело, короткий хвост, узкие длинные крылья, перепонки между пальцами
var
n, i, sum: integer;
a: array[1..100] of integer;
begin
assign(input, 'input.txt');
reset(input);
assign(output, 'output.txt');
rewrite(output);
readln(n);
for i:=1 to n do begin
read(a[i]);
sum:=sum + a[i];
end;
for i:=1 to n do
if a[i] * n = sum then begin
writeln(a[i]);
halt;
end;
writeln('No');
end.