<h3>var a:array [1..100001] of longint;
</h3><h3>r,k:real;
</h3><h3>s:longint;
</h3><h3>begin
</h3><h3> t:=1;k:=0;
</h3><h3> while t<>0 do
</h3><h3> begin
</h3><h3> read(t);
</h3><h3> inc(k);
</h3><h3> a[k]:=t;
</h3><h3> s:=s+t;
</h3><h3> end;
</h3><h3> r:=s/k;
</h3><h3> if a[k+1 div 2]>r then writeln('Yes') else writeln('No');
</h3><h3>end.
</h3><h3 />
Правильный ответ д 6 потамучто он правильный
Да
например человек муж род
лиса жен. род
окно ср. род
белый белая белое
<span>алг квадратное уравнение
нач
вещ a, b, c, D, x1, x2
ввод a
ввод b
ввод c
D := b**2 - 4*a*c
вывод "D = ", D, нс
если D > 0 то
x1 := (-b + sqrt(D)) / (2 * a)
x2 := (-b - sqrt(D)) / (2 * a)
вывод "x1 = ", x1, нс
вывод "x2 = ", x2, нс
иначе
если D = 0 то
x1 := -b / (2 * a)
вывод "x = ", x1, нс
иначе
вывод "корней нет", нс
все
все
кон</span>