Const n=20;
var a: array[1..n] of integer;
i, max, imax, min, imin : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
max:=a[1]; imax:=1; min:=a[1]; imin:=1;
for i:=2 to n do
begin
if a[i] > max then begin max:=a[i]; imax:=i; end;
if a[i] < min then begin min:=a[i]; imin:=i; end;
end;
writeln('max=',max,' min=',min);
a[imax]:=min; a[imin]:=max;
writeln('Измененный массив:');
for i:=1 to n do write(a[i],' '); writeln;
end.
Пример:
Исходный массив:
-20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0
max=48 min=-38
Измененный массив:
-20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0
Текстовый редактор "Блокнот" не поддерживает различные шрифты в оформлении текстовых документов.
Сайт пойдет? Если да то лови ссылку http://htmlbook.ru/
var
i: <em>integer</em>;
begin
for k: <em>byte</em> := 0 to 10 do
i += round(power(2, k));
writeln(i);
<span>end.</span>
1/16 Мб = 65536 байт; в 16-ти симв. алфавите на кодировку 1-го символа нужно 4 бита , значит в 1 байте 2 симв. если объем 65536 байт, умножь на 2
получишь 131072 символа <span>
131072 символа </span>
<span>(1/16)*(1024*1024)*(8_бит) / (4 бита для 16 символьного алфавита) </span>