Решаем на уроке, , а то учитель орет сканируется цветное изображение размером 38,1×38,1 дюйм. разрешающая сканера — 1200×1200 dpi, глубина цвета — 4 бита. какой информационный объём будет иметь полученный графический файл?

1. За основную единицу измерения количества информации принят …
А) 1 бит

2. Переведите число 101010101 из двоичной системы счисления в десятичную.
D) 341

3. В какой системе счисления хранится информация в компьютере с технической точки зрения?
А) двоичной

4. Сколько секунд минимум потребуется модему, передающему сообщения со скоростью 28800 бит/с, чтобы передать 100 страниц текста в 30 строк по 60 символов каждая, при условии что каждый символ кодируется одним байтом?
D) 62,5 с

5. Число 11010111 в двоичной системе счисления соответствует числу в восьмеричной системе счисления:
D) 327

6. Современный компьютер - это …
В) многофункциональное электронное устройство для работы с информацией

7. В подъезде 16 квартир. Сколько информации несет сообщение о том, в какой квартире живет Ваш друг?
С) 4 бита

8. Накопителем информации является
С) диск

9. Четвертое поколение ЭВМ сконструировано на основе
А) больших интегральных схем

10. Во время исполнения программа хранится в
С) оперативной памяти

11. Единица выводимой информации при работе дисплея в графическом режиме называется…:
В) пиксель

12. Каков минимальный объем памяти (в Кб), достаточный для хранения растрового изображения размером 128 х 128 пикселей, если известно, что используется палитра из 256 цветов.
С) 16 Кбайт

13. Для хранения растрового изображения размером 64 х 64 пикселя отвели 1,5 Кб памяти. Каково максимально возможное число цветов в палитре.
С) 8

14. Понятие "телекоммуникация" означает
В) обмен информацией на расстоянии

15. Электронная почта позволяет передавать
С) сообщения и приложенные файлы

Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.