Program DaNNuu; uses crt; const n=3; var a:array [1..n] of integer; i,j,min,temp:integer; begin randomize; {создание массива} writeln('Элементы массива:'); for i:=1 to n do begin a[i]:=random(101)-50; write (a[i]:5); end; {сортировка массива} for i:=1 to n-1 do begin min:=i; for j:=i+1 to n do if a[min]>a[j] then min:=j; temp:=a[i]; a[i]:=a[min]; a[min]:=temp; end; writeln(); {вывод массива} writeln('Результат сортировки:'); for i:=1 to n do write(a[i]:5); end.
2048*96*144 = 28311552 символов
28311552*16 = 452984832 информационный объем в битах
Переведем биты в байты, потом кбайты и в мбайты:
1 Байт = 8 бит
1 Кбайт = 1024 Байт
1 Мбайт = 1024 Кбайт
452984832 / 8 = 56623104 Байт
56623104 / 1024 = 55296 Кбайт
55296 / 1024 = 54 Мбайт
ответ: 54 Мбайт.
Второе задание:
32*64=2048 символов на странице
16 бит=2 байта - 1 символ
2048*2=4*1024 байт=4 Кбайта - страница
4*8=32 Кбайта - доклад
ответ: доклад займет 32 Кбайта.
Третье задание:
38 символов(если правильно посчитал))
38*16=608 бит
608/8= 76 байтов
ответ: 76 байтов.
uses crt;
const n=3;
var
a:array [1..n] of integer;
i,j,min,temp:integer;
begin
randomize;
{создание массива}
writeln('Элементы массива:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i]:5);
end;
{сортировка массива}
for i:=1 to n-1 do
begin
min:=i;
for j:=i+1 to n do
if a[min]>a[j] then
min:=j;
temp:=a[i];
a[i]:=a[min];
a[min]:=temp;
end;
writeln();
{вывод массива}
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i]:5);
end.