Выполнить переводы единиц измерения пропускной а) 16 бит/с=кбайт/с б) 204кбайт/с=байт/с в) 40байт/с=кбит/с г) 59 бит/с=байт/с​

#include <iostream>

#define N 2

int main()

{

int i,j;

int A[N], B[N], C[N];

setlocale(LC_ALL, "Russian");

for (i = 0; i < N; i++)

{

 std::cout << "Введите a" << i << ": ";

 std::cin >> A[i];

 std::cout << "Введите b" << i << ": ";

 std::cin >> B[i];

 std::cout << "Введите c" << i << ": ";

 std::cin >> C[i];

}

for (i=0;i<N;i++)

 for (j = i+1; j < N; j++)

 {

  if ((A[i]==A[j])&&(B[i] == B[j])&&(C[i] == C[j]))

   std::cout << "Прямые " << i << "и " << j << " совпадают" << std::endl;

  else if (-A[i] / B[i] == -A[j] / B[j])

   std::cout << "Прямые " << i << " и " << j << " параллельны" << std::endl;

 }

return 0;

}

Const
  n1 = 20;
  m1 = 20;

var
  a: array[1..n1, 1..m1] of integer;
  b: array[1..m1] of integer;
  i, j, m, n: integer;

begin
  Write('Введите через пробел число строк и столбцов массива: ');
  Readln(n, m);
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  Writeln('Сформированный массив');
  for j := 1 to m do
  begin
    i := 1;
    while (i <= n) and (a[i, j] >= 0) do i := i + 1;
    if i <= n then b[j] := a[i, j] else b[j] := -99;
    Write(b[j]:4)
  end;
  Writeln
end.

Тестовое решение:
Введите через пробел число строк и столбцов массива: 3 10
Исходный массив
 -11 -18 -42 -22  -9   2  21  15  40  -3
   4  -5  40 -13 -44 -37  43  47   1 -39
  20  50  21 -18 -10   6  12 -10  43 -37
Сформированный массив
 -11 -18 -42 -22  -9 -37 -99 -10 -99  -3