Разрешение экрана 640 на 480 точек. какой объём видеопамяти займёт цветное изображение? ответ дайте в килобайтах.

Ну если не прибегать к ухищрениям с атрибутами, то просто умножить 640 на 480. Поскольку глубина цвета 8 бит (1 байт) , то полученная цифра сразу будет в байтах. 307200 байт.

Ну при условии, что цвет хранится в rgb и кодирока одного пикселя занимает 3 байта, 640 * 480 * 3 = 921 600байт = 900кБайт

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Размер массива:');

 var k := ReadInteger('Максимальное значение элемента:');

 var a := ArrRandom(n, 0, k);

 a.Println;

 var b := ArrRandom(n, 0, k);

 b.Println;

 var c := a.Zip(b, (p, q)-> p + q).ToArray;

 c.Println;

 k := c.Max;

 var v := ArrFill(k + 1, 0);

 for var i := 0 to c.High do

   v[c[i]] += 1;

 var d := 0;

 for var j := 0 to k do

   for var i := 0 to v[j] - 1 do

   begin

     c[d] := j;

     d += 1

   end;

 c.Println

end.

Размер массива: 15Максимальное значение элемента: 4031 11 31 28 10 30 16 38 24 25 11 38 0 29 3531 36 6 35 15 2 13 34 10 6 37 14 32 31 1062 47 37 63 25 32 29 72 34 31 48 52 32 60 4525 29 31 32 32 34 37 45 47 48 52 60 62 63 72

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('n=');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var b := SeqRandom(n, -10, 10).Select(t -> t = 0 ? 1 : t).ToArray;

 b.Println;

 var c := a.Zip(b, (p, q)-> p div q).ToArray;

 c.Println;

 Print('Нечетных элементов:');

 a.Where(t -> t.IsOdd).Count.Print;

 b.Where(t -> t.IsOdd).Count.Print;

 c.Where(t -> t.IsOdd).Count.Println;

end.

n= 1372 94 79 3 15 -82 72 -72 14 -79 23 -48 26-6 9 3 10 -2 10 -3 -7 5 -4 -6 7 -1-12 10 26 0 -7 -8 -24 10 2 19 -3 -6 -26Нечетных элементов: 5 7 3