Определите, какими св-ми обладают бинарные отношения и определите их вид: 1.Отношение перпендикулярности на множестве прямых
2.отношение не более(=<) на множестве рациональных чисел

Const
  m = 4;
  n = 3;

var
  a: array[1..m, 1..n] of integer;
  i, j, t: integer;
  p: longint;

begin
  Randomize;
  Writeln('Исходный массив');
  p := 1;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(19) - 9;
      Write(a[i, j]:3);
      if (abs(a[i, j]) < 1) or (abs(a[i, j]) > 5) then p := p * a[i, j]
    end;
    Writeln
  end;
  Writeln('Произведение элементов с модулем вне [1;5] равно ', p)
end.

Тестовое решение:
Исходный массив
 -8  2  7
 -3 -8  5
  1 -4 -3
  6  9  6
Произведение элементов с модулем вне [1;5] равно 145152

В 1 кбайте 1024 байта

в 1 байте 8 бит

500*1024=512000 байт

512000*8=4096000 бит

 

1 тбайт 1024 гбайт

1гбайт 1024 мгбайт

1 мбайт 1024 килобайта

1 тбайт содержит 1024*1024*1024*1024=

1099511627776 байт  

 

1 птбай 1024 тбайт 

20 птбай содержат    

20*1024*1024*1024= 21474836480 мбайт

   

102400 байт содержит 1024 кбайт и 1024 мбайт

следовательно это число нужно поделить 2 раза на 1024

и приблизительно =0,0977 мбайт

 

65536 бит содержит 8 байт и 1024 кбайта

=8кбайт

 

65536/1024/1024=0,0625 мбайт