Цветовая палитра - 2 цвета, может кодироваться как 0 и 1 => весит 1 бит.
Объем: 128*35*1= 4480 бит = 560 байт
Var
s,i,k:integer;
m:array[1..20]of integer;
begin
write('Введите k: ');
readln(k);
writeln('Массив:');
for i:=1 to 20 do
begin
m[i]:=random(20);
write(m[i],' ');
if m[i] mod k=0 then s:=s+m[i];
end;
writeln;
writeln('Ответ: ',s);
<span>end.</span>
Uses Graphabc;
begin
SetWindowWidth(530);
SetWindowHeight(200);
SetPenWidth(5);
Rectangle(250, 10, 310, 70);
Rectangle(210, 70, 350, 130);
Rectangle(170, 130, 390, 190);
end.