4E516
0100/1110/0101/0001/0110
001/001/110/010/100/010/110
1162426
Тетрада и триада
1 Гбайт = 1024 Мбайт
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 байта
1 байт = 8 битам
1024*1024=1048576(байт) в одном Мбайте
1048576*1024=1073741824(байт) в одном Гбайте
1048576*8=8388608(бит) в одном Мбайте
1073741824*8=8589934592(бит) в одном Гбайте
Не могу прикрепить фото, но 2-2; 3-4
Const
m = 5;
n = 8;
var
a: array[1..m, 1..n] of integer;
i, j, t: integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=t end;
Writeln('Полученный массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходный массив
45 20 -15 33 -37 26 -30 -3
-27 43 -24 4 -14 18 -50 5
-28 -47 11 27 -8 42 -19 -39
16 43 -18 0 -32 25 11 22
27 -37 -44 -38 -50 7 -45 -30
Полученный массив
-28 -47 11 27 -8 42 -19 -39
-27 43 -24 4 -14 18 -50 5
45 20 -15 33 -37 26 -30 -3
16 43 -18 0 -32 25 11 22
27 -37 -44 -38 -50 7 -45 -30