Рисунок размером 128 на 128 пикселей занимает в памяти 10 кбайт (без учета сжатия найдите максимально возможное количество цветов в палитре изображенич

128 * 128 = 16 384 пикселей
10 * 1024 * 8 = 81 920 бит
81 920 /  16 384 = 5 бит на пиксель =>
Максимальное возможное количество цветов в палитре изображения будет 32 (N = 2 ** i)

300

Объяснение:

V = K * i, где  

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей )

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

N = 2^i, где  

N - количество цветов в палитре

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

^ - знак степени

2^i = 256

i = 8 бит = 8 / 8 = 1 байт (найдено подбором степени)

K = 240 * 320 = 76 800 пикселей

V = K * i = 76 800 * 1 = 76 800 байт занимает одно изображение

V = 76 800 байт = 76 800 / 1024 = 75 Кбайт занимает одно изображение

Т.к. камера делает снимок раз в 15 секунд, то за 1 минуту (60 секунд) она создаст 60 / 15 = 4 изображения

75 Кбайт * 4 = 300 Кбайт нужно выделить для хранения всех изображений, полученных за 1 минуту

Program Massive;

uses Crt;

const

  K = 3;

  L = 6;

var

  Z: array [1..K * L] of integer;

  R: array [1..K * L] of integer;

  Q: array [1..K * L] of integer;

  i: integer;

  x: integer;

begin

    Randomize;

    x := K * L;

    for i:= 1 to x do

    begin

      Z[i] := Random(20);

      R[i] := Random(10);

    end;

    ClrScr;

    writeln('Massive Z:');

    for i:= 1 to x do

        write(Z[i]:4);

    writeln;

    writeln('Massive R:');

    for i:= 1 to x do

        write(R[i]:4);

    writeln;

    for i:= 1 to x do

        Q[i]:= Z[i] * R[i] + 10;

    writeln('Massive Q:');

    for i:= 1 to x do

        write (Q[i]:4);

    readln

end.