1Кб <span> </span> = 1024 байт = 8192 бит
2 килобайта = 1024х2=2048
1Мб <span>= 1024 Кб = 8 388 608 бит </span>
3Мб = 3х1024х1024=3145728 байт
1 бит=8 байт.
128 бит:8=16 байтов
Const
n=5;m=7;
var
a:array[1..n,1..m]of integer;
b:array[1..n*m]of integer;
i,j,buf,k:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
k:=k+1;
b[k]:=a[i,j];
end;
writeln;
end;
writeln;
for i:=1 to n*m-1 do
for j:=i+1 to n*m do
if b[i]>b[j] then
begin<span>
buf:=b[i];</span>
b[i]:=b[j];
b[j]:=buf;
end;
for i:=1 to m*n do<span>
write(b[i]:4);
end.</span>
Решение показано в прилагаемом файле.
Ответ: 77
1 - в) Мышь.
2 - б) Монитор.
3 - в) Пиксель.
4 - г) Произведение количества строк изображения на количество точек в строке.
5 - а) Красного, синего, зелёного (RGB).
Const n=10;
var a: array [1..n] of integer;
i,p: integer;
begin
for i:=1 to n do
a[i]:=random(-2,2);
writeln (a);
p:=1;
for i:=1 to n do
if a[i]<>0 then p:=p*a[i];
writeln (p)
end.