const
N=5;
var
a:array [1..N] of integer;
i,k,count:integer;
begin
for i:=1 to N do
begin
a[i]:=random(20);
write(a[i]);
end;
for i:=1 to N do
begin
count:=0;
k:=2;
if a[i] < 2 then count:=1;
while (k*k<=a[i]) and (count = 0) do
begin
if a[i] mod k = 0 then inc(count);
inc(k);
end;
if count = 0 then write(i);
end;
end.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-20,40); a.Println;
Writeln('Кол-во отрицательных: ',a.Where(x->x<0).Count)
end.
<u>Пример</u>
n= 15
-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6
Кол-во отрицательных: 9
8=3бит
32=5бит
64=6бит
128=7бит
256=8бит
524=9бит
1024=10бит
Берём из первой шляпы одну монету, из второй две, ..., из десятой — 10 монет и кладём их на весы.
Если бы все монеты были настоящими, то они бы весили (1 + 2 + ... + 10) * 10 = 550 г. Поскольку каждая фальшивая монета на 1 г легче настоящей, то весы покажут не 550 г, а на столько грамм меньше, сколько взято фальшивых монет. Поскольку количество взятых из шляпы монет совпадает с номером шляпы, это позволит определить, где лежат фальшивые монеты.
кб = (1 × 1024) ÷ 4 = (1 × 1024 × 8) ÷ 4 = 2048 бит.
Получается, что
Кб = 2048 Бит