1. Имена массивов 2. Количество элементов массивов
3. Чему равно значение Num[6]
4. Чему равно значение Weekday[2]

Num = [45, 78, 3, 9, 23, -12, 67, - 15, 7 54]
Weekday = ['monday', 'tuesday', 'wednesday', 'thursday', 'friday', 'saturday', 'sunday'] ​

Дано:
Палитра 256 цветов.
Размер 10x10 пикселей.

Найти:
Каков информационный объём этого файла?

Решение:
Вначале определяем глубину цвета по формуле
2^i = N. 2^i = 256 по условию, отсюда i = 8 бит.

Вычисляем общее количество пикселей в картинке:
10*10 = 100 пикселей

Информационный объём равен
100 пикселей * 8 бит = 800 бит.



Дано:
разрешающая экрана 1440*900 точек
глубина цвета 32 бит

Найти:
объём графического изображения

Решение:
Вначале вычисляем общее количество пикселей в картинке:
1440 * 900 = 1 296 000 пикселей.

Информационный объем вычисляется по формуле
Объем = количество пикселей * глубина цвета
Объем = 1 296 000 * 32 бит = 41 472 000 бит
Делим на 8 бит в байте, 41 472 000 / 8 = 5 184 000 байт

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,m,-10,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var L:=new List<integer>; // для номеров подходящих строк
  for var i:=0 to n-1 do
    if a.Row(i).Any(t->t<=0) then L.Add(i);
  n:=L.Count;
  if n=0 then begin
    Writeln('Все строки содержат только положительные элементы');
    exit
    end;
  var b:=new integer[n,m];
  for var i:=0 to n-1 do
    b.SetRow(i,a.Row(L[i]));
  Writeln('*** Результирующая матрица ***');
  b.Println(4)
end.

Пример
Количество строк и столбцов в матрице: 5 4
*** Исходная матрица ***
  12  -9  64  34
  53  64  49  74
  33  27  -6  72
  91  14  23  16
  15  64   9  77
----------------
*** Результирующая матрица ***
  12  -9  64  34
  33  27  -6  72