Алгоритм написання літри Д 5 разів у скретч

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var a:=ArrRandom(100,-10,10);
  a.Println;
  Writeln(a.Where(x->x>0).Count,' положительных, ',
    a.Where(x->x<0).Count,' отрицательных')
end.

Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных

Бит | Байт | Кбайт | Мбайт

24576 | 3072 | 3 | 0,003

16384 | 2048 | 2 | 0,002

12288 | 1536 | 1,5 Кбайт | 0,001

67108,864 | 8388,608 | 8,192 | 0,008

Объяснение:

1 байт = 8 бит

1 Кбайт = 1024 байт

1 Мбайт = 1024 Кбайт

24576 бит = 24576 / 8 = 3072 байт = 3072 / 1024 = 3 Кбайт = 3 / 1024 ≈ 0,003 Мбайт

2048 байт = 2048 / 1024 = 2 Кбайт = 2 / 1024 ≈ 0,002 Мбайт

2048 байт = 2048 * 8 = 16384 бит

1,5 Кбайт = 1,5 / 1024 ≈ 0,001 Мбайт

1,5 Кбайт = 1,5 * 1024 = 1536 байт = 1536 * 8 = 12288 бит

0,008 Мбайт = 0,008 * 1024 = 8,192 Кбайт = 8,192 * 1024 = 8388,608 байт = 8388,608 * 8 = 67108,864 бит