1. выделить объект
2. нажать на нем правую кнопку мыши
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>
16 = 2^4
64 * 50 * 16 = 51200 символов
6240 * 32 = 199680 байт - информационный объём 32 рисунков
51200 * 4 = 204800 бит - информационный объём текста
204800/8 = 25600 байт
199680 + 25600 = 225280 байт = 220 Кб - информационный объём реферата
Ответ:
480
Объяснение:
a + x = 370
b + x = 250
a + x + b + x = 370 + 250
a + b + x + x = 620
a + b + x = 620 - х
x = 140
a + b + x = 620 - 140
a + b + x = 480