//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.
Умеренный климатический пояс
<em>Алгоритм деления отрезка AB пополам:</em>
<span>1) поставить ножку циркуля в точку А;</span>
<span>2) установить раствор циркуля равным длине отрезка АВ;</span>
<span>3) провести окружность;</span>
<span>4) поставить ножку циркуля в точку В;</span>
<span>5) провести окружность;</span>
<span>6) через точки пересечения окружностей провести прямую;</span>
<span>7) отметить точку пересечения этой прямой с отрезком АВ.</span>
<span>
</span>
<span>Было у нас такое на зачете :D</span>
Var i, k: integer;
a:array[1..100] of integer;
begin
k:=0;
for i := 1 to 100 do
begin
a[i]:=random(15)-7;
writeln(a[i]);
end;
for i := 1 to 100 do
if a[i]=5 then inc(k);
writeln(k);
readln
<span>end.</span>
80*128*8=81920 бит=10 Кбайт
30/10=3 с
Ответ: 3 с