Заполнить двумерный, массив размерностью 7х7, случайными целыми числами в диапазоне от -100 до 100. Вывести двумерный массив в виде РОВНОЙ таблицы. Найти отдельно количество положительных элементов главной диагонали и количество отрицательных элементов главной диагонали двумерного массива (квадратной матрицы). Найти отдельно количество четных и нечетных элементов, находящихся на побочной диагонали двумерного массива (квадратной матрицы).​

ответ: 1 - c, 2 -b, 3 - b, 4 - b, 5 - a, b, 6 - a, 7 - a, 8 - a, 9 - b, 10 - b, 11 - e, 12 - b, 13 - c, 14 - b, d, e.

Объяснение:

1. Информационная услуга — это получение и предоставление в распоряжение пользователя информационных продуктов.

2. Информационно-поисковые системы позволяют осуществлять поиск и сортировку данных.

3. В чем отличие информационно-поисковой системы (ИПС) от системы управления базами данных (СУБД)? -  в отсутствии инструментов сортировки и поиска.

4. WORD — это текстовый процессор.

5. ACCESS реализует —  реляционную или иерархическую структуру данных.

6. Электронные таблицы позволяют обрабатывать цифровую информацию.

7. Схему обработки данных можно изобразить посредством  коммерческой графики.

8. Векторная графика обеспечивает построение геометрических фигур.

9. Деловая графика включена в состав Excel.

10. Структура гипертекста задается заранее и является иерархической.

11. Гипертекст – это технология поиска по смысловым связям.

12. Единицей обмена физического уровня сети является бит.

13. Протокол IP сети используется на сетевом уровне.

14. Интернет возник благодаря соединению таких технологий, как гипертекст, сетевые технологии, телеконференции.

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandomReal(n,1,50);
  a.Println;
  var m:=a.Min;
  if m<>0 then
    for var i:=0 to n-1 do a[i]/=m;
  a.Println
end.

Тестовые решения:
n= 5
15.9562486982701 12.6295463515583 11.5262675264507 24.1544637978796 45.6158542677834
1.38433787534893 1.09571865502651 1 2.09560152429653 3.95755643907304

n= 10
14.0622929614327 16.5069398081428 13.2300360101415 45.449448110745 46.6062807271286 41.3808015088461 21.5502972461052 20.3082026570608 6.33108078377837 25.0892608808769
2.22115203417771 2.60728623941069 2.0896962875659 7.17878189569095 7.36150466545052 6.53613544386811 3.40388915922883 3.20769918290964 1 3.96287170196298

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,1,50);
  a.Println;
  var m:=a.Max;
  if m<>0 then
    for var i:=0 to n-1 do a[i]+=m;
  a.Println
end.

Тестовые решения:
n= 8
37 3 10 29 39 31 40 10
77 43 50 69 79 71 80 50

n= 10
9 47 40 19 20 37 21 39 26 31
56 94 87 66 67 84 68 86 73 78