Код:
procedure TForm1.Button1Click(Sender: TObject);
var kolo,kolp,i,n:integer;
a:array[1..1000] of integer;
begin
n:=Memo1.Lines.Count;
kolo:=0;
kolp:=0;
for i:=1 to n do
begin
a[i]:=StrToInt(Memo1.Lines[i-1]);
If a[i]>0 then Kolp:=kolp+1;
If a[i]<0 then kolo:=kolo+1;
end;
ShowMessage('Количество положительных: '+IntToStr(kolp));
ShowMessage('Количество отрицательных: '+IntToStr(kolo));
end;
Оформление:
N - количество цветов.
i - глубина цвета.
N=2^i
1) 2^1=2
2) 2^2=4
3) 2^3=8
4) 2^4=16
5) 2^8=256
6) 2^16=65536
7) 2^24=16777216