Var
a:array[1..n] of integer;
i, min, max,k:integer;
mid:real;
begin
write('Кол-во элементов массива: ');
readln(n);
for i:=1 to n do
readln(a[i]);
max:=0; k:=0;
for i:=1 to n do
if a[i]> max then max:=a[i];
min:=max;
for i:=1 to n do
if a[i]<min then min:=a[i];
mid:=(max+min)/2
for i:=1 to n do
if a[i]>mid then k:=k+1;
writeln(k,' чисел');
end.
Program P1;
uses
Graph,Crt;
var
d,m,i,k : integer;
x,y,x0,y0,r : integer;
a,b : real;
begin
Если я правильно понял, что нужно всегда выигрывать, то вот:
answer = planet
Введенное слово заменяется на заранее правильный ответ.
<span>var a, b: integer;
begin<span>
writeln(<span>'Введите часы: '</span>);</span>
readln(a);<span>
writeln(<span>'Введите минуты: '</span>);</span>
readln(b);<span>
if (a > 6) and (a < 10) then writeln(<span>'Утро'</span>);
</span><span> if (a = 10) and (b = 0) then writeln(<span>'Утро'</span>);
</span><span> if (a = 6) and (b >= 30) then writeln(<span>'Утро'</span>);</span><span>
if (a > 10) and (a < 16) then writeln(<span>'День'</span>);</span><span>
if (a = 10) and (b >= 1) then writeln(<span>'День'</span>);</span><span>
if (a = 16) and (b <= 30) then writeln(<span>'День'</span>);</span><span>
if (a > 16) and (a < 22) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 22) and (b = 0) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 16) and (b >= 31) then writeln(<span>'Вечер'</span>);</span><span>
if (a > 22) or (a < 6) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 22) and (b >= 1) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 6) and (b <= 30) then writeln(<span>'Ночь'</span>);
</span><span>end.</span></span>