РОЗРОБИТИ СВIЙ КОРОТКИЙ АЛГОРИТМ З ПОВТОРЕННЯМ ТА ВИКОРИСТАННЯМ ЗМIННИХ

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,1,50);
  a.Println(3); Writeln(3*a.ColCount*'-');
  // начало расчетов
  var s:=0;
  for var i:=0 to n-1 do s+=a[i,n-i-1];
  Writeln('1: S=',s);
  Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn;
  Write('3: Произведение элементов: ');
  a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn;
  var p:BigInteger:=1;
  for var i:=0 to n-1 do p*=a[i,i];
  Writeln('4: П=',p);
end.

Самыми используемыми являются:
•Соединение через модем(модемное)- ADSL
•Через моб. телефон(мобильное)- GPRS
•Спутниковый
•Оптоволокно(соединение по выделенной линии)

Соединение по выделенному каналу.
После подключения, провайдер/абонент проводит до нужного места оптоволокно или витую пару. Хоть это не самое дешевое решение для подключения к интернету, но зато абонент получает разделенные интернет и телефонную линию, высокую скорость, в пределах 100МБит/сек и за счет определенного диапазона IP-адресов хорушее качество соединения.

Единственным минусом тут является относительно дорогая прокладка кабеля(чем большее расстояние вы прокладываете, тем больше платить), особенно в регионах стран.