Как выкладывать в интернет : список программ, 20

1. 32х32=1,024 пикселя. А 1 кБ = 1,024 Байт. Следовательно, на каждый пиксель уходит по 1 Байту. А 1 байт - 8 бит. Что дает нам 256 градаций цвета (2^8=256).
2. 10х10=100 точек, каждая по 16 цветов (4 бита) . Следовательно, на каждые 2 точки уходит байт памяти. Итого - 50 байт.
3. 8х32=256 пикселей. Каждый пиксель занимает 1 байт (8 бит = 256 комбинаций) . Итог - 256 байт.
4. 128х128=16,384 пикселя. 2 кБ памяти = 2,048 байт. Делим объем памяти на количество точек. Получаем 2,048/16,384=0.125 байта на точку, или 1 бит (1/8=0.125). Т. е. , только два цвета - черный и белый.
5. 20х20=400 точек. Каждая по 1 байту (256 цветов = 8 бит) . Итого - 400 байт. ДЕРЖИ

Var
  X: array [1..5, 1..5] of real;
  Y: array [1..4, 1..4] of real;
  i, j: byte;
  SumX, SumY: real;
begin
SumX := 0; SumY := 0;
writeln('Массив X':28);
for i := 1 to 5 do
begin
  for j := 1 to 5 do
  begin
    X[i, j] := random*40-20;
    if X[i, j] < 0 then SumX := SumX + X[i, j];
    write(X[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Массив Y':28);
for i := 1 to 4 do
begin
  for j := 1 to 4 do
  begin
    Y[i, j] := random*40-20;
    if Y[i, j] < 0 then SumY := SumY + Y[i, j];
    write(Y[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Сумма отрицательных массива X = ', SumX:9:4);
writeln('Сумма отрицательных массива Y = ', SumY:9:4);
if SumX > SumY then writeln('Сумма отрицательных X - больше.')
else if SumX < SumY then writeln('Сумма отрицательных Y - больше.')
else writeln('Сумма отрицательных X и Y равны.')
end.