Program zadacha;
var
k,x,i,n:integer;
m:Array[1..100] of Integer;
begin
k:=0;
readln(n);
for i:=1 to n do begin
readln(m[i]);
end;
for i:=2 to n do begin
if m[i]>m[1] then k:=k+1;
end;
write(k);
<span>end.</span>
Readln(a);
<span>readln(b); </span>
<span>readln(c); </span>
<span>if (a=b) and (b=c) then </span>
<span>write("треуг равносторонний") </span>
<span>else </span>
<span>if (a=b) or (a=c) or (b=c) then </span>
<span>write("треугольник равнобёдренный")
end</span>
1)128=2^7 Для хранения цвета надо 7 бит
V=2048*2048*7/8=3670016 байта=3584 кБайта=3,5 Мбайта
2) 3072*8=4096*x
x=6 бит
Число цветов=2^6=64 цвета
1) (2+3)+(4+5)+6=20
2)20+x=6
x=20-14
x=6
ответ : 6 мышек надо позвать