Var
a:array[1..6]of integer;
i,j,max:integer;
function mx(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
for i:=1 to 6 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=1 to 6 do
for j:=i+1 to 6 do
if mx(a[i],a[j])>max then max:=mx(a[i],a[j]);
writeln('max=',max);
<span>end.</span>
Bsjdnwbsjdwkskavdjclskwbsdjbw d fudjsjxornd f fir dnciebdidjwndpdje
1-б
2-д
3-г
4-а
5-в
второе не знаю
2
1гбайт и 1024 Мбайт
1 Кбайт и 1024 байт
1-3
2-1
3-2
4-5
5-4
Var
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do s:=s+i/10;
Writeln(s)
end.
<u>Результат</u>
5.5
Берем логарифм по основанию 2 от 32.
Получаем, что требуется 5 бит на 1 пиксель.