Рассчитайте объём видеопамяти, необходимый для хранения графического изображения, занимающего весь экран монитора с разрешением 640х480 и палитрой из 65536 цветов. напишите дано к .
begin var n := ReadlnInteger('n = '); var m := ReadlnInteger('m = '); var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin a := new integer[m, n]; for var i := 0 to m-1 do for var j := 0 to n-1 do a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = '); end else a := MatrixRandom(m, n, 1, 100); Println(a);
var b := ArrGen(n, x -> 1); for var i := 0 to m-1 do for var j := 0 to n-1 do if j mod 2 = 0 then b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println(); end.
65536 = 2^16 = 16-битная цветность
307200 пикселей * 16 бит/пиксель = 4915200 бит
4915200 / 8 = 614400 байт
614400 байт / 1024 = 600 Кбайт