program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
3) из пункта 2 знаем, что при 256 цветах 1 пиксель занимает 1 байт. Всего 800*600 = 480000 пикселей, которые занимают 468,75 Кбайт
4) 128*128 = 2¹⁶ пикселей всего, отведено 2¹⁸ бит, тогда на 1 пиксель отведено 1 бит, а это 256 цветов
5) у нас 4 цвета, для их хранения понадобится 2 бита на пиксель. Всего пикселей 2²³ * 22, а памяти понадобится 2²³ * 22 * 2 бит = 2²⁵ * 11 бит = 2⁵ * 11 Мбит = 352 Мбит