program mn;
uses crt;
const m=7;n=9;
var mas:array[1..m,1..n] of Integer ;
m1, m2:array[1..n] of Integer ;
i, j, k:Integer;
begin
Randomize;
write('Исходный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
mas[i, j]:=random(100);
write(mas[i, j]:3) end end ;
j:=0;
repeat
for i:=1 to n do begin
m1[i]:=mas[1+j,i];
m2[i]:=mas[m-j,i];
mas[1+j,i]:=m2[i];
mas[m-j,i]:=m1[i]; end;
j:=j+1
until j>m div 2;
writeln;
write('Преобразованный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(mas[i, j] :3) end;
readln;
end.
Объяснение:
В разделе const задаем нужный размер исходного массива.
16 Кбайт = 16 384 Байт
24 Мбайт = 24 576 Кбайт
25 Тбайт = 26 214 400 Мбайт
2 Гбайт = 2 097 152 Кбайт
12 Мбайт = 12 582 912 Байт
8 Мбайт = 67 108 864 Бит
16 Мбайт = 0,015625 Гбайт
24 Тбайт = 24 576 Гбайт
2 Мбайт = 16 777 216 Бит
1 Тбайт = 8 796 093 022 208 Бит
Объяснение:
1 Кбайт = 1024 Байт ⇒ 16 Кбайт = 16 * 1024 = 16 384 Байт
1 Мбайт = 1024 Кбайт ⇒ 24 Мбайт = 24 * 1024 = 24 576 Кбайт
1 Тбайт = 2²⁰ Мбайт ⇒ 25 Тбайт = 25 * 2²⁰ = 26 214 400 Мбайт
1 Гбайт = 2²⁰ Кбайт ⇒ 2 Гбайт = 2 * 2²⁰ = 2 097 152 Кбайт
1 Мбайт = 2²⁰ Байт ⇒ 12 Мбайт = 12 * 2²⁰ = 12 582 912 Байт
1 Мбайт = 2²³ бит ⇒ 8 Мбайт = 8 * 2²³ = 67 108 864 Бит
1 Гбайт = 1024 Мбайт ⇒ 16 Мбайт = 16 : 1024 = 0,015625 Гбайт
1 Тбайт = 1024 Гбайт ⇒ 24 Тбайт = 24 * 1024 = 24 576 Гбайт
1 Мбайт = 2²³ бит ⇒ 2 Мбайт = 2 * 2²³ = 16 777 216 Бит
1 Тбайт = 2⁴³Бит ⇒ 1Тбайт = 1 * 2⁴³ = 8 796 093 022 208 Бит
