Var A :array [1..20] of integer ; i:integer;
begin
for i :=1 to 20 do
begin
a[i]:=random(-10,30);
write(a[i],'...');
end;
end.
4 мбайта = 4 * 1024 *1024 = 4194304 байт * 8 = 33554432 бит
65536 = 2 ^ 16 - для одной точки используется 16 бит
Из объема удалить информацию о цвете и тогда получим количество точек
33554432 бит / 16 = 2097152 точек