PascalABC.NET 3.2:
begin
Println('Исходный массив:');
var A := ArrRandom(30, -50, 50).Println;
var m := A.Max;
Println('Максимум равен', m);
Println('Изменённый массив:');
A.Select(x -> x + m).Println;
end.
Пример вывода:
Исходный массив:
-47 -34 -25 -42 -38 38 -32 42 21 -25 9 -41 -49 9 12 -3 37 38 20 -36 -42 42 37 6 37 -41 -44 -19 23 8
Максимум равен 42
Изменённый массив:
-5 8 17 0 4 80 10 84 63 17 51 1 -7 51 54 39 79 80 62 6 0 84 79 48 79 1 -2 23 65 50
Ответ:
вүщемвмш овглмвпгвииащглагмплгмпмвшмвш
Const n=20;
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
<span>end.</span>
Найдём общее число символов:
4 * 30 * 50 = 6000 символов
I - объём
I = 4500 байтов = 36000 бит
Чтобы найти количество символов найдем i.
N = 2 в степени i
i = 36000 / 6000 = 6
N = 64
Ответ: 64 символа в алфавите.
Ответ:
24,3₈
Объяснение:
7,5₈
+ 14,6₈
---------
24,3₈
Система восьмеричная, поэтому складываем как в десятичной, но если число превышает 7, добавляем еще 2 (потому что осенование системы 8 на 2 меньше, чем 10, в которой считаем).
5 + 6 = 11 и +2 = 13. Тройку пишем, +1 в следующий разряд
4 + 7 + 1 = 12 и +2 = 14. Четверку пишем, +1 в следующий разряд.
1 + 1 = 2.
