16 вариантов цвета - 2 пикселя на байт.
10*10 = 100 пикселей, => 100/2 = 50 байт.
Просто подставляешь переменные в формулы и решаешь
Как мы их сравним, если только знаем их названия?
Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.