program ArrayPrintBack;
var
a: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
a[i] := 5 + Random(49);
Write(a[i]:3)
end;
Writeln;
for i := 8 downto 1 do
Write(a[i]:3)
end.
Количество пикселей: 1024 * 768 = 786432
Глубина цвета: 24 бит (16777216 = 2²⁴)
Следовательно объем видеопамяти: 24 * 786432 = 18874368 бит, или 2,25 мегабайта.